sub dBug_showArray {
    my $msg = shift;
    print "\n\n\Value of array '$msg' is:\n";
    ...
    ...