sub search_for_username_and_no_of_questions { for(;$index<@records;$index++) { if ($records[$index] =~ /userName\s+:\[(..*)\]/) { $User_Name = $1; print "User_Name = $User_Name\n"; $User_Name =~ s/\s+//g; for(;$index<@records;$index++) { if ($records[$index] =~ /Set\s+of\s+questions\(bitmap\)\s+selected\s+:\s+(\d+)/) { print "Inside set of questions bitmap selected\n"; $Bitmap_Number_For_Questions = $1; $no_of_questions{$User_Name}=$Bitmap_Number_For_Questions; print "$Bitmap_Number_For_Questions is no of questions for $User_Name\n"; $timestamp{$User_Name}=$Time_Stamp; print "$Time_Stamp is time stamp for $User_Name\n"; return 0; } } } } }