ABC: while ()
{
   #print "entered into while loop\n";
   if ($_ eq $net_extract) 
   {
      $count = 1;
      print "hello\n";
   }