#!/usr/bin/perl

use strict;

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

#my ($grepnames) = grep{$_ eq "ER"} @test2;
#my ($grepnames) = grep(/"ER"/, @test2);
my @grepnames = grep {$_->[0] eq "ER"} @test2;

print ("@grepnames\n");