#my @files2del = map { ($hash{$_}->{Size} > $sizelimit ? $_ : () } keys %hash;
my @files2del = grep { $hash{$_}->{Size} > $sizelimit } keys %hash;
delete @hash{@files2del};  # deletes paths from hash
unlink @files2del;         # deletes files from disc