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

##</code><code>##

use strict;
use warnings;
package Array;
use Data::Dumper;

sub new {
	my $class=shift;
	my $self=bless \@_,$class;
	$self
};
sub grep {
	my ($self,$code,$pack)=@_;
	my $ret=defined wantarray ? ref($self)->new() : $self;
        $pack||=caller;
	my $sub=ref $code ? $code : eval"package $pack; sub{$code}" 
                or die "grep failed eval: '$code'\n$@";
	@$ret=grep($sub->(),@$self);
	return wantarray ? @$ret : $ret
}
sub map {
	my ($self,$code,$pack)=@_;
        $pack||=caller;
	my $ret=defined wantarray ? ref($self)->new() : $self;
	my $sub=ref $code ? $code : eval"package $pack; sub{$code}" 
                or die "map failed eval: '$code'\n$@";
	@$ret=map($sub->(),@$self);
	wantarray ? @$ret : $ret
}

sub sort {
	my ($self,$code,$pack)=@_;
	my $ret=defined wantarray ? ref($self)->new() : $self;
        $pack||=caller;
	if ($code) {
                # we play games with namespaces here because $a and $b are package
                # variables and we need to do the sort in the same package as the
                # $a and $b are used in.
		@$ret=eval
		qq({
			package $pack;
			local *__sorter=*__sorter=ref \$code ? \$code
			                                     : eval "sub{\$code}"
				or die "Sort failed eval: '\$code'\n\$@";
		    sort __sorter \@\$self;
		}) or die $@;
	} else {
		@$ret=sort @$self;
	}
	wantarray ? @$ret : $ret
}
sub reverse {
   my $self=shift;
   my $ret=defined wantarray ? ref($self)->new() : $self;
   @$ret=reverse @$self;
   wantarray ? @$ret : $ret
}

##</code><code>##

package main;
my @x=Array->new( qw( bb cccc ddd aaaaa fffff qqq xxx iiiii ) )
           ->map('[length($_), $_ ]')
           ->sort('$b->[0] <=> $a->[0] || $a->[1] cmp $b->[1]')
           ->map('pop @$_');

print "@x";

##</code><code>##

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

##</code><code>##

@sorted_by_ext_name_size =
  map  { pop @$_ }
  sort {
         $a->[0] cmp $b->[0] ||
         $a->[1] cmp $b->[1] ||
         $a->[2] <=> $b->[2] ||
         0
       }
  map  { [reverse(lc($_)=~/([^\\\/]+?)(\.[^.]+)?$/),-s($_),$_ ] }
  @files=glob ('c:/winnt/*.*');

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