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

##</code><code>##

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

##</code><code>##

map{ /^$key/ and s/^$key// and print "val=$_\n", $_ }