print $var foreach my $var (1..10);