#!/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";