gmunoz/sort_via_pipe_bad-1.pl

## sort_via_pipe_bad-1.pl
perl -nE '
  $_{$_} = -M; # store file age (mtime - now)
  END {
    $, = "\n";
    @sorted = sort {$_{$a} <=> $_{$b}} keys %_; # sort by increasing age
    print @sorted[0..9];
  }'
	perl -nE '
	$_{$_} = -M; # store file age (mtime - now)
	END {
	$, = "\n";
	@sorted = sort {$_{$a} <=> $_{$b}} keys %_; # sort by increasing age
	print @sorted[0..9];
	}'