Try

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

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

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

Thanks..