Help for this page
use strict; use warnings; ... map { [ split ] } @ta; }
key = b, value is y
use strict; use warnings; ... grep { $_->[0] eq $key } map { [ split ] } @ta ] }\n};