Select Code to Download

use Data::Dumper::Declare;

...
my @baz = qw(1 2 3);

print Dumper($foo, substr($bar, 0, 5), @baz);

use Data::Dumper::Declare;

...
    $foo[1],
    join('::', @foo),
);