First of all, you don't have to open DATA to read from it. Also, without looking it up or testing it, I'm not too sure what these two lines, in this combination, are supposed to do: 

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

[download]
but it looks wrong to me. Would you care to elaborate as to what your intensions were here?

The next thing that strikes me as odd is the ins split /,\s*/ for <DATA>; line: where is ins defined? Is it imported from somewhere? Did you forget to include the relevant use ...; statement or the actual subroutine itself? Because as is, your code won't even run without an error message regarding this line.

Not to mention the fact that your code has use strict; and then uses an undeclared variable:

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>

[download]

In reply to Re: Unable to write output to file taken as input from command line by muba
in thread Unable to write output to file taken as input from command line by zing

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.