personel.pm:

package personel;

use Data::Dumper;

sub sortAge {
    $b->[1] <=> $a->[1];
}

return 1;