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

The perlish way to write such a map involves grep ;-) my @files2del = grep { ($hash{$_}->{Size} > $sizelimit  } keys %hash;