#my @array = $source{$data} ;
    my @array = @{$source{$data}} ;