Select Code to Download

#!/usr/bin/perl 
use strict;
...
my @intersection = $lc->get_intersection;

print Dumper(@intersection);

$VAR1 = '6';
$VAR2 = '7';
$VAR3 = '9';