1: my $hashref = sub {
2:     return int(rand(1000));
3: };
4: print $hashref->(),"\n";
5: print $hashref->(),"\n";  #ergibt dasselbe ergebnis wie beim ersten print()