Select Code to Download

sub get_pairs {
  my %hash = ();
...
          '2' => 0,
          '5' => 1
        };

1 = 1 2
2 = 1 3
...
          '2' => 0,
          '5' => 0
        };

#!/usr/bin/perl

...
65 = 3 8  1 7
66 = 4 5  1 7
67 = 4 8  1 7

@array = qw(6 6 5 5 1 1 1 3 3 3 3 2 2 2 2 4 4 4 4 4 8 8 8 8 8 8 8 8 7 
+7 7 7 7 7 7 7);

...
        };
get_pairs1 produces: 36 rows
get_pairs2 produces: 67 rows