Select Code to Download

use strict;
use warnings;
...
    print "list1: " . Dumper($aref1);
    print "list2: " . Dumper($aref2);
}

list1: $VAR1 = [
          'a',
...
=== After changem ===
a, b, c
d, e, f

use strict;
use warnings;
...
}

__END__

keats, byron, frost
marlowe, shakespeare, jonson

use strict;
use warnings;
...
    print "list1: " . Dumper($aref1);
    print "list2: " . Dumper($aref2);
}

list1: $VAR1 = [
          'a',
...
=== After changem ===
a, Camel, c
d, LLama, f