%salary = ( "P" => 10, "S" => 12, "C" => 5, "S" => 6, "L" => 11, "D" => 8,);foreach $key( sort(keys %salary)) { printf "\t% -20s%5d\n", $key, $salary{$key};}