Help for this page
@b = (ab, c);
@a = (a, bc, d);
sub isOrderedSublist{ my ( $aref, $bref ) = @_; # references to arrays ... my $aref = shift; return( not ( $#$aref + 1 ) ); }