chomp($line1);
    my @mg1 = split(/,/, $line1);
    my $line2 = <IN>;
    chomp($line2);
    my @mg2 = split(/,/, $line2);
    my $line3 = <IN>;
    chomp($line3);
    ...