chomp(my $infile = shift);
open(DATA,$infile) or die "Could not open $infile\n";