use Data::Dumper;

use strict;
use warnings;

my %a = (one => [ ['a','b'],['c','d'] ]);
print Dumper(@a{one});