my $init = 1; my $step = 4; my $count = 5; my $string = join ' ' => map { $_ * $step - ($step - $init) } 1 .. $count;