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

##</code><code>##

C:\Users\Lona\Desktop>perl x.pl
syntax error at x.pl line 15, near "ins split"
Global symbol "%group" requires explicit package name at x.pl line 16.
Execution of x.pl aborted due to compilation errors.

C:\Users\Lona\Desktop>