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

$test1 = ['A','D','B'];
$test2 = ['A','C','B'];
$source = ['A','B','C','A','B'];

$result = is_LsubsetR( [ $test1, $source ] );

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


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

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