Help for this page
Select Code to Download
Select
or
download this
my @files2del = map { ($hash{$_}->{Size} > $sizelimit ? $_ : () } keys
+
%hash;
Select
or
download this
my @files2del = grep { ($hash{$_}->{Size} > $sizelimit } keys %hash;