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