use strict;

run();

sub run {
    my @plist = ("ABC", "DEF");

    dumpList("Initial list", @plist);

    foreach (@plist) {
        my $ccmexecResult = ccmexec_nodie("echo HelloWorld");

        dumpList("ccmexec returned: $ccmexecResult", @plist);
    }
}


sub dumpList {
    my ($when, @list) = @_;
    
    print "$when\n", join "\n", @list, '', '';
}


sub ccmexec_nodie {
    my $command = $_[0];

    $_ = "Well that sucks";
    return "$command: result";
}