open my $in, "<", $infile;
open(DATA,$in);