Something like

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

See. perlreftut for more info.
HTH

_________
broquaint