Hi, your shebang looks broken... Shouldn't it be #! |path|of|interpreter (1)?

your subject says "ignoring blank lines", your text says "leave out those lines which has one partner"?

So, what do you want to do?

What do you mean with "partner"? Are you talking about words (partner == word)?
Do you simple want to print those lines with two words?
Maybe only those lines with two words, where the words are the same?

The better you explain your problem, the better others can help you.

Just a guess:

#! /usr/bin/perl
use strict;
use warnings;

# read magically from given files or STDIN; see perldoc perlop (null f
+ilehandle)
while ( my $line = <> ) {
    # split each line
    my @elements = split /\s+/, $line;

    # two words per line (and words are equal)
    if ( 2 == @elements && $elements[0] eq $elements[1] ) {
        print $line;
    }
}

# just for testing
__DATA__
file
ass ass
array
rat rasa
arrow ant
sad
[download]