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

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