$data = 'data'; # via arg my @array = $source{$data} ; return @array;