#!/usr/bin/perl use strict; use warnings; my $numTimes = 2; my $i = 0; my @jobTimes = ('') x $numTimes; # Make the array big enough foreach my $job (@jobTimes) { $job = { start => param("JobStart$i"), }; $i++; }