use strict;
use warnings;

use Data::Dump qw/pp/;

package HoA;
require Tie::Hash;
our @ISA = qw(Tie::StdHash);

sub STORE {
  my ($this,$key,$value) =@_;
  push @{$this->{$key}}, $value;
}


package main;

my $data_str= do { local $/;<DATA>};


tie my %h, "HoA";

my $h=\%h;


%h = eval "$data_str";
pp $h;

%h = eval "%{ { $data_str } }";
pp $h;


__DATA__
(
   alpha => 1,
   alpha => 2
)