use PDL;
my $pdl_a = pdl 10..20;
my $pdl_b = pdl 15..18;
my $pdl_c = INTERSECTION OF PDL_A AND PDL_B
print "$pdl_a\n$pdl_b\n$pdl_c\n";