Select Code to Download

Jeff Goldblum Actor
Mary Heartman Priest
...


How can I sort on Vocation?

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

my @data = ( [ qw(Jeff Goldblum Actor) ],
             [ qw(Mary Heartman Priest) ],
...
for ( @sorted ) {
   printf "%s %s - %s\n", @{ $_ };
}

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