my $var = rand;

sub do_something {
  print "$var\n";
}