%matching = ( map { $_, $_ } @names )[ 1..@names*2-1, 0 ];