#!/usr/bin/perl
use strict;
use warnings;

my $Sel1Ttl = 1;
my $Sel2Ttl = 2;
my $Sel3Ttl = 3;

my $result;
for ($Sel1Ttl..$Sel3Ttl) {
  $result += $_;
}
print "$result\n"; # gives 6