my @output = @{$XML->{output}('name','eq',"$show"){frames}}; print "\n == Available Frame Formats For $show =="; foreach my $o (@output ){ print "\n $o->{format}"; }