for ( grep { $_->[0] eq $name } @names ) {
    print $_->[1];
}