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

use Sort::Key 'keysort';
my @sorted = keysort { (split /\s+/, $_)[2]/ } @data;