my $var1=0;

for my $var2 (1..9){
        print $var2;
        $var1 = $var2;
}
print "\n", $var1, "\n";