require in foreach-Schleife?

[lulinda]

Hallo,

ich habe folgendes Problem: ich möchte eine Perl Datei innerhalb mehrerer foreach Schleifen aufrufen. Das klappt nun überhaupt nicht. Gebe ich die Variablen ohne Schleifen an, wird die require-Datei ausgeführt. Kann es sein, dass require in Schleifen nicht funktioniert??

Hier die beiden Dateien:
(in basic.pl werden die Variablen $year, $month, $day und $date verwendet. 1; wird zurückgegeben).

1. funktioniert:
######################
$year = "2002";
$month = "7";
$day = "4";
$date = "$year-$month-$day";
require "basic.pl";

2. funkioniert nicht, die $date wird aber mit der print Anweisung korrekt ausgegeben.
#######################
 @array_years = (2000..2002);
 @array_months = (1..12);
 @array_days = (1..31);
 foreach $year (@array_years) {
  foreach $month (@array_months) {
   foreach $day (@array_days) {
     $date = "$year-$month-$day";
     require "basic.pl";
     print "$date \n";
   }
  }
 }

Für einen Lösungsansatz wär ich sehr dankbar!

lulinda.