Select Code to Download

use strict;
use warnings;
...
    print join(' ',@$points) . "\n";
}
print Dumper(\%hash);

'8' => {
       'sum' => '29.489759'
...
                     '2.990788'
                   ],
     },