my $command_line = ""; my $first_build = "hi.bld"; my @other_builds = qw( low.bld hello.bld cow.bld ); $command_line = "c:\\execu $first_build"; $command_line .= " " . shift @other_builds while (@other_builds); $command_line .= " file.c"; print "$command_line\n"; system "$command_line\n";