#!/usr/bin/perl
use strict;
use feature qw{ say };
use warnings;

my $x = 10;
for my $i (1 .. 10) {
    $x += $i;
}