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


@grepnames = grep {$_->[0] =~ "ER"} @test2;;

print "@$_" for @grepnames;;
XERXES 1002
SHERRY 1006