for my $i (0 .. $#arr){
    $subd = $arr[i];
    print"subLen: ".$subd."\n";
    for my $j ( {{$arr[i]}} )
    {
        foreach my $key{ keys %{$j}}{
            print $key.": ".${$j}}{$key};  
        }
{


        
    }
}