Select Code to Download

my @grepnames = grep { $_->[0] =~ /ER/ } @test2;
print(join(', ', @$_), "\n") for @grepnames;