map{ /^$key/ and s/^$key//; $_ } grep( /^$key/, @ta)