foreach my $x ( grep defined, @foo ) {
    $x = rand;
]