Help for this page
$spair{$si."-".$sn} = $prod;
if ((! defined($spair{$si."-".$sn})) and (! defined($spair{$sn."-".$si}))) { $spair{$si."-".$sn} = $prod; }