Karger78,
Take a look at List::Util's first().

# Added example

my $have_zip = first { /\.zip\z/) } @uploads;
die "No zipped files to process" if ! $have_zip;
[download]