#!/usr/bin/env perl
use warnings;
use strict;

my @test2 = (
    ["KATE"     , "1001"],
    ["XERXES"   , "1002"],
    ["LARRY"    , "1003"],
    ["TEDDY"    , "1004"],
    ["DANA"     , "1005"],
    ["SHERRY"   , "1006"]
);

my @grepnames;
for my $aref (@test2) {
    push @grepnames, @$aref[0] if (@$aref[0] =~ /ER/);
}
print "@grepnames\n";

##</code><code>##

XERXES SHERRY