#!/user/bin/perl

use warnings;
use strict;

my $i = 10;
print "$i\n";
foreach $i (0..5){
  print "$i\n";
} # end foreach $i loop
print "$i\n";

exit(0);

##</code><code>##

10
0
1
2
3
4
5
10