my @files2del = map { ($hash{$_}->{Size} > $sizelimit ? $_ : () } keys %hash;

##</code><code>##

my @files2del = grep { ($hash{$_}->{Size} > $sizelimit  } keys %hash;