my @program_array = $XMLref->{Response}->[0]->{Program};