foreach my $i (0 .. $#{ $data{$formname} }) {
  print "$_: $data{$formname}->[$i]->{$_}\n"
    foreach keys %{ $data{$formname}->[$i] };
}