Select Code to Download

my %hash    = (
 'mus09r' => [ '0,-464,AAACCATCTTGAAAC',
...
      print ">instances\n";
      print join("\n",@{$val}),"\n";
}

use Data::Dumper;

...
               "\n";
}
print Dumper $string;