test.pl
sub beispiel {
 @array= (was, wie,wo,wann,wozu,wieso);
  foreach $array(@array) {
  return $array;
   }
}
#hautprogramm
$give_the_next_string = beispiel...; #to complete