Adjusted matching for processing TSV files, so it will not fail even if the dir has not been created.
#!perl -w
use strict;
my @includefiles = glob "*_includefile.txt";
foreach (@includefiles)
{
my $includefilename=$_;
if (m/(.*)(_includefile.txt)/) {
my $zipfilename = $1.".zip";
system("7za a -tzip -i@".$includefilename . " " .$zipfilename);
}
}