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

##</code><code>##

$clrNr = 42;
kundNytt($clrNr);