Select Code to Download

use strict;
use warnings;
...
{
    print "Array $_ ", join (", ", @{$str{$_}}), "\n";
}