my @sort = sort {$hash{$a}->{"Size"} cmp $hash{$b}->{"Size"}} keys %hash;
for each $file (@path) {
  if ($hash{$file}->{"Size"} > $sizelimit) {
     delete $file
  } else {
     break;
  }
}