Select Code to Download

@newfiles=@files.map([-s($_),$_]).sort($a->[0]<=>b->[0]).map(pop @$_);

use strict;
use warnings;
...
   @$ret=reverse @$self;
   wantarray ? @$ret : $ret
}

package main;
my @x=Array->new( qw( bb cccc ddd aaaaa fffff qqq xxx iiiii ) )
...
           ->map('pop @$_');

print "@x";

@sorted_by_size = 
  map  { pop @$_ } 
  sort { $a->[0] <=> $b->[0] } 
  map  { [-s $_ , $_ ] } 
  @files;

@sorted_by_ext_name_size =
  map  { pop @$_ }
...

print join(",\n",@files);
print join(",\n",@sorted_by_ext_name_size);