if ($val =~ s/["\\]/\\$1/g or $val =~ m/[:\s]/) {
                    $val = qq["$val"];
                }

##</code><code>##

"this was quoted because of whitespace"
"\"this was quoted because of whitespace\""

##</code><code>##

 foreach my $val ( @{$arrayref} ) {
    # do evil mutating things to $val
 }
 foreach my $val ( @{$arrayref} ) {
    # now do it AGAIN.
 }

##</code><code>##

FIRST LOOP
SCALAR(0x857c5cc)
SCALAR(0x857c5d8)
SCALAR(0x857c5e4)
SCALAR(0x857c5f0)
SECOND LOOP
SCALAR(0x857c5cc)
SCALAR(0x857c5d8)
SCALAR(0x857c5e4)
SCALAR(0x857c5f0)