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