my @columns = split /\s+/;
print $., "\n" if $column[0] == $column[1];