1
2
3

my $ref = do { my %list = ( 1 => 'test' ); \%list; };
print $ref, $/;
print $ref->{1}, $/;

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!