my $z=0;
while ( defined ${$content}->{'returndata'}->[$z] ) {
print ${$content}->{'returndata'}->[$z],"\n";
$z++;
}