Select Code to Download

use strict;
use warnings;
...

use Data::Dumper;
print Dumper \%spair;

$VAR1 = {
          '1-1' => 17,
          '2-2' => 38,
          '1-2' => 402
        };