#!/usr/bin/perl

my @multi_array;

push @multi_array, [split] for <DATA>;

##</code><code>##

#!/usr/bin/perl

# my @multi_array = map {[split]} <DATA>;

##</code><code>##

my @by_vocation = sort {$a->[2] cmp $b->[2]} @multi_array;

for (@by_vocation) {
    print "@{$_}\n";
}

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