if ($linescore eq 0){
        linescore($y, $l);
        $y = $x;
     }
     if ($linescore ne 0){

##</code><code>##

$_ = '02';
print "equal\n" if $_ eq 2;