my $pattern = '*.zip';
for my $file ( glob $pattern ) {
    next unless -f $file;
    print 'Doing this and that for ', $file, $/;
    do_this($file);
    do_that($file);
}