Ok, this is one the answer given by most revered tlm to me the other day:

sub test_ordered {
  my ( $ref, $test ) = @_;

  # $i scans the indices of @$ref;
  # $matched keeps count of # of elements matched in @$test;

  my ( $i, $matched ) = ( 0, 0 );
OUTER: for ( @$test ) {
    while ( $i < @$ref or return 0 ) {
      if ( $ref->[ $i++ ] eq $_ ) {
        last OUTER if ++$matched == @$test;
        last;
      }
    }
  }
  return 1;
}
[download]

More can be found here. Don't vote my root posting but vote those remarkable answers you will find there.