Select Code to Download

sub hpairs (\%) {
    my $href = shift;
...
__END__
admin earns 600
boss earns 1000

sub hpairs (\%) {
    use enum 'KEY', 'VAL';
...
} grep {
    $_->[VAL] > 500
} hpairs %salary;