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

##</code><code>##

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