knoppix@Microknoppix:~$ cat spw964070.in
abc peter
def jack
ghi zak
jkl ben
mno mick
pqr alan
knoppix@Microknoppix:~$ perl -Mstrict -wE '
> open my $inFH, q{<}, q{spw964070.in}
>    or die qq{open: < spw964070.in: $!\n};
> open my $outFH, q{>}, q{spw964070.out}
>    or die qq{open: > spw964070.out: $!\n};
> 
> print $outFH
>    map  { $_->[ 0 ] }
>    sort { $a->[ 2 ] cmp $b->[ 2 ] }
>    map  { [ $_, split ] }
>    <$inFH>;
> 
> close $inFH 
>    or die qq{close: < spw964070.in: $!\n};
> close $outFH
>    or die qq{close: > spw964070.out: $!\n};'
knoppix@Microknoppix:~$ cat spw964070.out 
pqr alan
jkl ben
def jack
mno mick
abc peter
ghi zak
knoppix@Microknoppix:~$