sub hpairs (\%) {
my $href = shift;
map[ each %$href ], 1 .. keys %$href;
}
my %salary = (
boss => 1_000,
secretary => 300,
admin => 600,
janitor => 150,
);
print for map {
"$_->[0] earns $_->[1]"
} sort {
$a->[1] <=> $b->[1]
} grep {
$_->[1] > 500
} hpairs %salary;
__END__
admin earns 600
boss earns 1000
Or prettier: sub hpairs (\%) {
use enum 'KEY', 'VAL';
my $href = shift;
map[ each %$href ], 1 .. keys %$href;
}
my %salary = (
boss => 1_000,
secretary => 300,
admin => 600,
janitor => 150,
);
print for map {
"$_->[KEY] earns $_->[VAL]"
} sort {
$a->[VAL] <=> $b->[VAL]
} grep {
$_->[VAL] > 500
} hpairs %salary;
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|