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