my $number = rand;
some($number);

sub some {
  my $num1 = shift;
  print "$num1\n";
}