gmunoz/perl oneliner to sort

## perl oneliner to sort
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];
	}'