use Sort::Key;
@sorted=ikeysort { /foo(\d+)\.tla/; $1 } @data;