sub bla_blub
{
   my $x = shift;

   $x++;

   return($x);
}
[...]
my $f_var = &bla_blub($startwert);