Select Code to Download

use Storable;
store (\@array, "/path/to/array.dat");
my @newarray = @{retrieve("/path/to/array.dat")};

while(<>) {
  /^(.+)\: (.+)$/;
...
foreach my $key (sort keys %hash) {
  print "$key:  ", join(", ", @{$hash{$key}}), "\n";
}