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