sub beispiel {
    my $zaehler;
    @array= (was, wie,wo,wann,wozu,wieso);
    return = sub {
        $zaehler = 0 if scalar @array > $zaehler;
        return $array[$zaehler++];
    }
}
$frager = beispiel();
$erste_antwort = $frager();
$zweite_antwort = $frager();