use 5.010;
@r = sort
	{ say "perlmonks rule!" and $a }
	(map {$_ cmp 1} $[ .. $^F) x $^F;