Select Code to Download

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