ls -l|perl -ane 'push @lines, [@F]; END { print map { "@$_\n" } sort {$a->[4] <=> $b->[4]}  @lines; }'