You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
234 B
Perl
11 lines
234 B
Perl
5 years ago
|
%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};
|
||
|
}
|