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

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

say for @{values %alphabet};