sub ausgabe 
  {
  my $string = $_[0];
  my $ref = sub { print "<", $string, ">\n" };
  return($ref);
  }

$ref1 = ausgabe("Manche Leute kaufen sich von dem Geld, das sie nicht haben,");
$ref2 = ausgabe("Sachen, die sie nicht brauchen, um Leuten zu imponieren, ");
$ref3 = ausgabe("die sie nicht ausstehen können!");

&$ref1;
&$ref2;
&$ref3;