my code is like this:
#!/usr/bin/perl
use warnings;
use strict;
my %hasharray;
open (my $fh,"<","c:/datanew.txt") or die ("can't open the file");
while(my $line= <$fh>){
#print $_;
if($line=~ /
/){
my $n=$line;
#print $n;
my $nextline= <$fh>;
# print $nextline;
if($nextline =~/
/){
****/here I am having problem.. i don't klnow hopw to complete the code****/
}
else {
my @d =split(',',$nextline);
}
}