$ad1="1000";$ad2="2000";$ad3="3000";foreach $limit ( $ad* ) {print "$limit\n";}
Místo $ad1, $ad2... použít @ad[0], @ad[1]... a pak foreach(@ad)
$ad[0], $ad[1]
perl -e 'foreach my $ad (1..3) { $ad *= 1000; print "$a\n"; }'
Ked uz, tak Kód: [Vybrat]$ad[0], $ad[1] ;-)