pass-by-reference in Perl ???

[Bernhard Peissl]

Halli Hallo!

Gibts irgendsowas ähnliches wie pass by reference auch in Perl? Ich
würd gern mehrere Variablen mit einem Funktionsaufruf ändern. Also
z.B. statt:

// $susi = "susi";
// $susi = schlag($susi);
// $strolchi = "strolchi";
// $strolchi = schlag($strolchi);

// sub schlag { $_[0] =~ s/\w/_mit_dem_blauen_auge/g; return $_[0]; }

also irgendwas wie:

// $susi = "susi";
// $strolchi = "strolchi";
// schlag($susi, $strolchi);

Geht das ??? -nicht das schlagen, du scherzkeks  ;-) Ich will ja
keine Tiere quälen, brächt ich ja nie übers Herz ;-)

Liebe Grüsse
Bernhard aka RAMBO!!!!