use Algorithm::Diff qw( LCS_length );

sub in_list {
    # Returns true if lsa is a proper subsequence of lsb
    my ($lsa, $lsb) = @_;
    return LCS_length($lsa, $lsb) == @$lsa;
}