my $file = "test.png";
my @files = qw(exe zip jpg gif);
my $match = 0;

foreach (@files) {
   $match++ if $file !~ /\.$_$/i;
}

print "Dateiendung ungueltig!" if $match == scalar(@files);