Foreach in Perl - is it possible to do this?

Question

Perl

Hello, the question arose, how can I implement the passage through the cycle and then through the next cycle? I don't know Perl at all, so any help would be greatly appreciated!

my $start_year=2013;
my $stop_year=2000;
my $interval=100;

foreach (reverse($stop_year..$start_year)){
 `wget -q -O /dev/null "http://site.ru/get_programm.php\?year=$_\&auto=Lada"`;
sleep $interval;
}
foreach (reverse($stop_year..$start_year)){
 `wget -q -O /dev/null "http://site.ru/get_programm.php\?year=$_\&auto=Zaz"`;
sleep $interval;
}
foreach (reverse($stop_year..$start_year)){
 `wget -q -O /dev/null "http://site.ru/get_programm.php\?year=$_\&auto=Audi"`;
sleep $interval;
}

Can this be done and is it correct?

Answer 1

Should work.
PS: sleep takes an argument in seconds.