sub hallo 
  { 
  return "Hallo $_[0]";
  }

$ref_sub = \&hallo;
print &{$ref_sub}('Welt')."\n";