open my $in, '<', 'file.txt' or die "Cannot open file for reading: $!";
print sort { ($a =~ /\S+\n$/g)[0] cmp ($b =~ /\S+\n$/g)[0] } <$in>;
close $in;