if ($pipe_thisline eq $right_pipes) {

...

        if ( $pipe_thisline > $right_pipes ) {