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

##</code><code>##

          $one_program_name = $programs->{NAME};