foreach my $i (1 .. 10) {
    print "\$i = $i\n";
}