Shelling out for file lists is pretty inelegant. Built-in glob can handle that,

my @ll = map {
    (glob "$path/$_")[0]
} qw/*B1006* *B1106-* *B11062*/;
[download]

You can dispense with the index $next by pushing elements onto the arrays. Your regex can be dressed up a little with quantifiers and built-in character classes.

my (@stamp, @name);

foreach (@ll) {
    if (m#([A-Z][a-z]{2}\s\d{2}\s\d{2}:\d{2})\s(/.+\.+Z)$#) {
        push @stamp, $1;
        push @name,  $2;
    }
}
[download]

The if is necessary. Without it, you don't know that $1 and $2 are fresh. I added an end-anchoring $ to ensure .Z but not .Zoo files.

I left off printing until they can happen in one discrete block.

for (0..#$stamp) {
    printf "\$name[$_]:\t%s\n\$stamp[$_]:\t%s\n\n",
        $name[$_], $stamp[$_];
}
[download]

Update: Woops, japhy++ spotted a feature I completely overlooked. That simplifies everything, and makes the regex completely unnecessary. With the above @ll is @name. New version, minus printing:

my @name = map {
    (glob "$path/$_")[0]
} qw/*B1006*.Z *B1106-*.Z *B11062*.Z/;

my @stamp = map { scalar localtime( (stat)[9]) } @name;
[download]

That retains $path in the names, but those can be trimmed if you like using File::Basename.

---

---

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.