Jeff Goldblum Actor
Mary Heartman Priest
John Ericsson Mathmetician
Tony Cisneros Chef


How can I sort on Vocation?

##</code><code>##

my @data = ( [ qw(Jeff Goldblum Actor) ],
             [ qw(Mary Heartman Priest) ],
             [ qw(John Ericsson Mathmetician) ],
             [ qw(Tony Cisneros Chef) ], );

##</code><code>##

my @sorted = map  { $_->[0] }              # Line 4
             sort { $a->[1] cmp $b->[1] }  # Line 3
             map  { [ $_, $_->[2] ] }      # Line 2
             @data;                        # Line 1

##</code><code>##

my @data = ( [ qw(Jeff Goldblum Actor) ],
             [ qw(Mary Heartman Priest) ],
             [ qw(John Ericsson Mathmetician) ],
             [ qw(Tony Cisneros Chef) ], );


my @sorted = map  { $_->[0] }              # Line 4
             sort { $a->[1] cmp $b->[1] }  # Line 3
             map  { [ $_, $_->[2] ] }      # Line 2
             @data;                        # Line 1

for ( @sorted ) {
   printf "%s %s - %s\n", @{ $_ };
}

##</code><code>##

fappy@flux[16] perl /tmp/sortit
Jeff Goldblum - Actor
Tony Cisneros - Chef
John Ericsson - Mathmetician
Mary Heartman - Priest