Select Code to Download

use strict;
use warnings;
...
Dump (\%hash);
splice @{$hash{somename}}, 1, 1;
Dump (\%hash);

$HASH1 = {
           othername => [
...
                          3
                        ]
         };