system($_) for @command_list;

##</code><code>##

my @cmd_list;
push @cmd_list, qq(p4 sync -k "$options{v}");
push @cmd_list, qq(p4 -x "$options{f}" delete) if (exists $options{f});

# ... etc.

system $_ foreach @cmd_list;

##</code><code>##

system qq(p4 sync -k "$options{v}");
system qq(p4 -x "$options{f}" delete) if (exists $options{f});
# ... etc.