$tainted = join '.', map {$$_ } @_ ;