Select Code to Download

$l1 = ( split //, $w1 )[ $intersect[ 0 ] - 1 ];

$l1 = substr $w1, $intersect[ 0 ] - 1, 1;

#!/usr/bin/perl
use strict;
...
    print "Any of\n", map "\t$_\n", @{ $word1{ $letter } };
    print "combined with any of\n", map "\t$_\n", @{ $word2{ $letter }
+ };
}