Help for this page
use strict; use warnings; ... use Data::Dumper; print Dumper \%spair;
$VAR1 = { '1-1' => 17, '2-2' => 38, '1-2' => 402 };