Select Code to Download

use strict;
use warnings;
...
use Data::Dumper;
print Dumper \%spair;

$VAR1 = {
          '1-1' => 17, # 3+3+11
          '2-2' => 38, # 2+36
          '1-2' => 402 # (3*2)+(11*36), this is correct already
        };

$VAR1 = {
          '1-1' => 3,  #wrong
          '2-2' => 2,  #wrong
          '1-2' => 402 #correct
        };