use Sort::Key; @sorted=ikeysort { /foo(\d+)\.tla/; $1 } @data; [download]
In reply to Re: Choosing the right sort (Or: WUDsamatter?) by salva in thread Choosing the right sort (Or: WUDsamatter?) by friedo