#! /bin/perl

@ar=(3,8);

push @new_array, ($ar[0] .. $ar[1]);

foreach ( @new_array)
{

  print "$_\n";
}