use strict;
use warnings;
use Data::Dump::Streamer;

my %hash = (
    somename => [1 .. 3],
    othername => [reverse -3 .. -1]
);

Dump (\%hash);
splice @{$hash{somename}}, 1, 1;
Dump (\%hash);

##</code><code>##

$HASH1 = {
           othername => [
                          -1,
                          -2,
                          -3
                        ],
           somename  => [
                          1,
                          2,
                          3
                        ]
         };
$HASH1 = {
           othername => [
                          -1,
                          -2,
                          -3
                        ],
           somename  => [
                          1,
                          3
                        ]
         };