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