#!/usr/bin/perl

sub println ()
{
	print @_; 
	print "\n";
}

$weich="ref";

$ref="var";

&println ($$weich);

$$weich = "neu";

&println ($ref);