@array = (3..9, 9, 7, 65, 4); $min = 1; # in my final program this will be 200 map {for $line($_+1..$#array){print ("\n$_\t$line\t", grep /(.{$min,}).*\1/, $array[$_].$array[$line])}} (0..$#array-1);