my @lines = <FILE>;
chomp @lines; # chomp kann auch mit listen arbeiten => map unnoetig

my @sorted = map { $_->[1] }  # ganze zeile zurueckgeben
    sort {$a->[0] cmp $b->[0] } # sortieren nach 2. spalte
    map  { [ ( split(/ +/) )[1], $_ ] } # 2dim Array bilden: [2.spalte, ganze zeile ]
    @lines;