foo($value);

sub foo {
  my ($v) = @_;
  print "$v\n";
}