#!/usr/bin/perl -w
use strict;

my @arr = ("Jeff Goldblum Actor", "Mary Heartman Priest", "John Ericsson Mathmetician","Tony Cisneros Chef") ;

print $_."\n" foreach (sort {(split(" ", $a))[2] cmp (split(" ", $b))[2]}@arr);