@files = grep { -f } glob '* .*';
@hash{ (map { -s $_ } @files) } = @files;
@files =  @hash{ sort { $a <=> $b } keys %hash };
print map {$_,$/} @files;