Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
    
    ...
    $count_array{ join q(), @array[$_, $_ + 1] }++ for 0 .. $#array - 1;
    
    print Dumper \%count_string, \%count_array;