Select Code to Download

#!/usr/bin/perl
use strict;
...

my @populace = map { [ map {rand 100;} (1..4) ] } (1..100);
my @spopu = sort {yo::my_f($a) <=> yo::my_f($b)} @populace;

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/