foreach my $key (keys %hash) {
     print "$key \t $hash{$key} \n";
}

##</code><code>##

while ( my ($key, $value) = each %hash)  { 
     printf  "%10s\t%10s\n", $key, $value;
}