my %hash;
$hash{beta} = 'x';
for my $name ( qw(alpha beta) ) {
    push @{$hash{$name}}, 123, 456;
}

use Data::Dumper;
print Dumper \%hash;