&example(15);

sub example {
  my($xyz) = shift || 0;
  my($a) = $xyz + 49;
  print $xyz;
  print $a
}