Re: Why are elements of my array getting deleted?

[tangent]

Not sure if this will work but I would suggest you change how you assign your arguments to:

sub ccmexec_nodie {
    my $command = shift;

...

sub myprint {
    my $level = shift;
    my $string = shift;