Print files by length

files.pl

use v5.14;

my %files = map { length($_) => $_ } glob('*');
my $count = shift;

foreach my $length (sort {$a <=> $b} keys %files) {
	say $files{$length};
	--$count or last;
}

files2_str.pl

say join("\n", map /^\d+ (.*)/, (sort {$a <=> $b} map { length($_) . " $_" } glob('*'))[0..(shift)-1]);