my @atags = qw( 1 2 3 4 );
my @btags = qw( 9 8 7 6 );

my %alphabet = (
     'a' => \@atags,
     'b' => \@btags,
             );

say for values %alphabet;