open (OUT, ">$inputfile.out") or die "cannot open file: $!\n";