use warnings;  # Don't leave out!
use strict;    # This neither!
my @files = qw( zip.meta some.zip );

for my $file ( @files )
{
    print $file, "\n";
    print $file =~ /zip$/ ? "\tZip!\n" : "\tNada y pues nada...\n";
}