my @files2del = grep { ($hash{$_}->{Size} > $sizelimit  } keys %hash;