my $value = "whatever";
some($value);

sub some {
  my( $param ) = @_;
  print "$param\n";
}