Help for this page
Select Code to Download
Select
or
download this
my @columns = split /\s+/; print $., "\n" if $column[0] == $column[1];