foreach my $x ( map "x$_", @foo ) {
    $x = rand;
}