#!/usr/bin/perl

use strict;


my @employees = ( 
    { FIRST => 'Bill',   LAST => 'Gates',     
      SALARY => 600000, AGE => 45 },
    { FIRST => 'George', LAST => 'Tester',
      SALARY =>  55000, AGE => 29 },
    { FIRST => 'Sally',  LAST => 'Developer', 
      SALARY =>  55000, AGE => 29 },
    { FIRST => 'Joe',    LAST => 'Tester',    
      SALARY =>  55000, AGE => 29 },
    { FIRST => 'Steve',  LAST => 'Ballmer',   
      SALARY => 600000, AGE => 41 } 
);

sub seniority {
    $a->{FIRST} cmp $b->{FIRST} or $a->{AGE} <=> $b->{AGE}
}

my $sort = "FIRST, AGE";
my @sorts = split( ',', $sort );
my @ranked;

    for( @sorts ) 
    { 
	@ranked = sort seniority @employees;
    }
foreach my $emp (@ranked) {
    print "$emp->{SALARY}\t$emp->{AGE}\t$emp->{FIRST}\t$emp->{LAST}\n";
}