open(RESULT,"file") || die "EXECUTION ERROR : Fail to open";
    while (<RESULT>)
     {
      chop();
      $REC     = $_;
      @LINEREC = split(/\;/,$REC);

      print "LINEREC[0]\n";
     }
close RESULT;