Select Code to Download

my @ta = ( 'a x', 'b y', 'c z' );
my $key = 'b';

printf "key=%s, value=%s\n", map split, grep { ! index $_, $key . ' ' 
+} @ta;
printf "key=%s, value=%s\n", $key, ${{ map split, @ta }}{$key};