Select Code to Download

use List::Compare::Functional qw(is_LsubsetR);

...
$result = is_LsubsetR( [ $test2, $source ] );

$result == 1 ? print "\n\$test2 is True" : print "\n\$test2 is False";

$test1 is False
$test2 is True