if # you forgot some parens here, like someone said
        {    $line1=~ /^$pattern/;
                        $line2=~ /^$pattern/;
                         $line1==$line2;
                        {  print $line1;    }
}