And, third, change this:

          $one_program_name = $programs->{NAME}->[0];
[download]

to this:

          $one_program_name = $programs->{NAME};
[download]

NAME is an attribute and there can be only one, so it isn't an array reference.

bobf did this, but didn't note it in his response.