#!/usr/bin/perl

open(FILE, "args.test");

@files=<FILE>;

my @allfiles;
for my $filename(@files){
    open FILE, $filename ||
        die "Cannot open $filename for reading: $!\n";
    push @allfiles, <FILE>;
    close FILE;
}

@test=grep /chr1:8325525/,@allfiles;

print "@test\n";