Select Code to Download

use strict;
use warnings;
...
       map  { [ split ] }
       @ta;
}

key = b, value is y

use strict;
use warnings;
...
   grep { $_->[0] eq $key }
   map  { [ split ] }
   @ta ] }\n};