How print a Hashtable with reference ?

[Santana]

Hei all,
hoe a print a hashtable elements in a function that receives the
reference of
this hastable  ???


In this example this foreach loop in "printHT" function  dont work ,
how is missed ?

#!/usr/bin/perl
use strict;
use warnings;

sub printHT($)
{
   my $T =$_[0];

   foreach my $id (keys (%$T)){           #This dont work :)

    print $$T{$id} . "\n";
   }

}


 my %ht_state=("AL" => "Alabama","AK" => "Alaska");
 &printHT(\%ht_state);


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/