Select Code to Download

if ( $si >= $sn ) {
   $spair{$si."-".$sn} = $prod;
} else {
   $spair{$sn."-".$si} = $prod;
}

use strict;
use warnings;
...
    }
}
print Dumper \%spair;

$VAR1 = {
       '3-1' => '10',
...
       '4-3' => '10',
       '4-4' => 2
    };