Alternatively

use strict;
use warnings;

my $number=8;
for ($number..$number+19){
  print "present value of the number is: $_ \n";
}
[download]

poj