You're join statement gives me an error, but this works:

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

But then again, why pass references here in the first place?

_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche