chomp(my $infile = <STDIN>);