use Sort::Key qw(keysort); my @data = <>; my @sorted = keysort { (split /\s+/, $_, 2)[1] } @data; print @sorted; [download]
In reply to Re: How to sort? by salva in thread How to sort? by redss