I'm having what seems like an odd issue with the push function in a foreach loop.. Basically I want to parse an array looking for a particular regex in each element, and if that regex exists I want to push that element to a new array. When I implement this in practice the foreach loop works, the if condition works, but the push function seems to only push the first match? I'm including an example below to illustrate:

#!/usr/bin/perl

use strict;
use warnings;

my @test   = ('md1', 'md2', 'md3', 'md4');
my $test2  = "";
my @test3  = ();

foreach my $line (@test) {
        if ($line =~ /md/) {
                push @test3, $line;
        }
}

printf @test3;
[download]

In this example, @test3 ends up being a single element array with element[0] being "md1". I was wondering if anyone could point me to documentation showing why this would happen, and possibly a fix? I've had no luck finding the cause.