Select Code to Download

use Data::Dumper;

...
$count_array{ join q(), @array[$_, $_ + 1] }++ for 0 .. $#array - 1;

print Dumper \%count_string, \%count_array;