Select Code to Download

use strict;
use warnings;
...

printf "Array after change is:  %s\n", Dumper($parray);
printf "Hash after change is:  %s\n", Dumper($phash);

Array before change is:  $VAR1 = [
          'a',
...
                       'f'
                     ]
        };