note Lotus1 <p>When you call the sub like this <c>my $alldata= get_data();</c> you aren't passing anything to the subroutine. There is no data for it to get.</p> <p>When you do this <c>$one_num = $infs->{ $one_num },</c> where was the value for <c>$one_num</c> initialized? It doesn't look like it was initialized to anything so the value inside the brackets is going to be undef. Are you using warnings? Strict?</p> <c> my $c = -1; ... foreach my $infs (@{ $data->{ info } }) { $c++; ... push @{ $AoA[$c] }, </c> <p>A more Perlish way to do this is to push each value into a temporary array inside the loop and then push that array into @AoA at the end of each itteration. This would drop out all the loop variables and simplify the notation.</p> 1007775 1007775