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