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