I was going to post the same as above, but now I won't. However, I was wondering why you wrote a subroutine for the sort as opposed to

my @sort2 = sort { $a->{'salary'} <=> $b->{'salary'} } @workers;
[download]