my @file = <INFILE>;
my $reg = s/[^,]*\.(\S*)//;
while (my $line = <INFILE>){
    chomp $line;
    my $wholefile = $line.$_ foreach(@file);
    print OUTFILE $wholefile;
    }