#!/user/bin/env perl

use strict;
use warnings;
use Data::Dumper;

my %hash = (); 
my $key = 'A';
my $insert_value = 123;
push(@{$hash{$key}},$insert_value);

print Dumper(\%hash);

##</code><code>##

$VAR1 = {
          'A' => [
                   123
                 ]
        };