sub ipsort { return map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[$_, split]} +@_; } [download]
In reply to Ipsort by bent