#!/usr/bin/perl
use strict;
use warnings;

my %hasharray; 
open (my $fh,"<","c:/datanew.txt") or die ("can't open the file"); 
while(my $line= <$fh>){ 
    #print $_
    if ($line=~ /[a-z]/){ 
         my $n=$line; 
         #print $n; 
         my $nextline= <$fh>; 
         # print $nextline; 
         if($nextline =~/[a-z]/){ 
             #****/here I am having problem.. i don't klnow hopw to complete the code****/ 
         } 
         else { 
             my @d =split(',',$nextline); 
         } 
     } 
}