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