my @list = qw (a b c d);

foreach (@list){
	local ${$_} = $_; 
	
}
print "Inhalt a: " . $a ."\n";
print "Inhalt b: " . $b ."\n";
print "Inhalt c: " . $c ."\n";
print "Inhalt d: " . $d ."\n";