sub kundNytt {
  my ($trans) = @_;
  # do something with $trans

  my $somevar = 88;
  return $somevar;
}


my $result;
$result = kundNytt(42);

print $result;  # prints '88'