Select Code to Download

use Carp;
use vars qw(%data);

...
        $r
    } keys %data;
}

init_comparison_for string => qw(fname lname email address position);
init_comparison_for numeric => qw(id salary zip);

print $employee{$_}->{fname}, " ", $employee{$_}->{lname}
    for sortedkeys %employee, qw(r-salary id);