Here's a single pass through your  @big array and should be fairly fast:

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dumper qw(Dumper);
 ;;
 my @big = ('d:\1\1\1.txt', 'd:\1\1\2.txt', 'd:\1\1\3.txt', 'd:\1\1\4.
+txt');
 ;;
 my @small = ('\1\2.txt', '\1\3.txt');
 my ($has_some_small) =
   map qr{ $_ }xms,
   join q{ | },
   map quotemeta,
   @small
   ;
 print $has_some_small;
 ;;
 my @inte = grep m{ $has_some_small \z }xms, @big;
 print Dumper \@inte;
 print qq{'$_'} for @inte;
"
(?^msx: \\1\\2\.txt | \\1\\3\.txt )
$VAR1 = [
          'd:\\1\\1\\2.txt',
          'd:\\1\\1\\3.txt'
        ];

'd:\1\1\2.txt'
'd:\1\1\3.txt'
[download]

As a beginner, always  use warnings; and  use strict; at the start of your scripts. See warnings and strict. Data::Dumper is core, so you should have it; it's a great aid to debugging. Please see perlre, perlretut, and perlrequick for regex info.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.