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