perl -e 'print qq{[$_]\n} for ( sort { $a <=> $b } qw(file1 file10z file11s file2q file20z file21f) )'