sub zap_the_thing {
    my $t = shift;
    my @files_to_zap;

    if (-d $t) {
       zap_dir($t);
    }
    else {
       push @files_to_zap, $t;
    }

    ... yadda ...

    zap_files(@files_to_zap);
}