my $suffix = ".zip"; # value is likely to change

foreach my $file (@dir_list) { 
   if ($file =~ /$suffix$/e) { 
       print "Match on $file!\n";
       do_this();
       do_that();
   }
}