use strict;
use warnings;
my $var;
for (1..10) {
  $var = $_;
}
print $var;