Select Code to Download

my @aoa = ( [1,4], [4,1] );
my @sorted = map { [ sort { $a <=> $b } @$_ ] } @aoa;