Select Code to Download

#!/usr/bin/perl
use strict;
...
                        'rew'
                      ]
        };

__DATA__

...
Anand,3,4,4,4,ert
seetha,1,2,3,4,rew
Anand,2,2,2,2,tre

#!/usr/bin/perl
use strict;
...
                   'rew'
                 ]
        };

my %HoA;
while (<>) {
...
} continue {
    close ARGV if eof;
}

my %HoA;
while (<>) {
...
} continue {
    close ARGV if eof;
}

my %HoA;
while (<>) {
...
} continue {
    close ARGV if eof;
}