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