for my $record (@{my $VAR1->{Application}})  {