Help for this page

Select Code to Download

Select or download this

use strict;
my @arr = <STDIN>;
...
        print "$arr[$i] $arr[$j]\n" if $i != $j;
    }
}