Select Code to Download

use warnings; use strict;
my $string = "1:1,2:1,3:2,500:2,505:1"; 
...
use Data::Dumper; 
print Dumper(\@array, \%hash);