Select Code to Download

use strict;
use warnings;

open(file1,"file1.txt") || die ("cannot open file");

open my $file1, '<', "file1.txt" or
  die "Can't open `file1.txt': $!\n";

while (<file1>)
   {
      chop();

      $REC     = $_;
      @LINEREC = split(/\,/,$REC);
      $data1 = @LINEREC[0];

while (<$file1>)
   {
      chomp;
      my $data1 = (split /,/)[0];
      # ...

   open(file2,"file2.txt") || die ("cannot open file");

#!/usr/bin/perl -l

...
}

__END__