Select Code to Download

@b = (ab, c);

@a = (a, bc, d);

sub isOrderedSublist{
    my ( $aref, $bref ) = @_; # references to arrays
...
    my $aref = shift;
    return( not ( $#$aref + 1 ) );
}