如何 获取数组的真实名字

比如 定义
my @haha_fl=(3,1,7,2);
my @gaga_fl=(3,1,4);
my @jiji_fl=(3,1,2);
my %abc= (
               123=> [@haha_fl],
               3=> [@gaga_fl],
               4 => [@jiji_fl]
               );
while (($asome_id, $some_id) = each(%abc)) {
#我想在这里 获取数组 $some_id 真实的数组名字 而非待用替换的名字：some_id  ,另有用途，请问如何获取 真实的数组名字
比如这里要根据每次循环 获取 haha_fl  gaga_fl jiji_fl  
}

求高手赐教啊

……这个问题问的真好，期待达人回答
先提供个变通方法：