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