Select Code to Download

use strict;
use warnings;
...
}

Dump \%hash;

$HASH1 = {
           one => [ 1 ],
...
                    2.003
                  ]
         };