my $keywords = $info->Keywords; foreach my $keyword (@$keywords) { print "$keyword\n"; } # or more succintly as print "$_\n" for @$keywords;