Hi,
  Try this code :

#!/usr/bin/perl -w
use strict;
my ($initValue,$step,$numOfMembers,$str) = (2,3,5,'');
foreach(1..$numOfMembers)
{
    $str.= (/1/)?$initValue:' '.$initValue;
    $initValue+=$step;
}
print "$str\n";
[download]

Cheers !
  Bipin Balan