my $limit = 10 * 1024**3; # 10 GB for my $filename (@files) { last if partition_usage('/var/log/') < $limit; unlink $filename or warn "Can't delete file '$filename': $!"; }