my ($c, $d) = (2, 8);
my @range = $c .. $d;