Select Code to Download

use warnings;
use strict;
...
dd $arr3;  # prints ["quz", "quz"]
my $arr4 = bad("baz",2);
dd $arr4;  # prints ["quz", "quz", "baz", "baz"]