# Get all values for each distinct subfield
my %subfields;
for ( $field->subfields ) {
- next if $_->[0] == "9"; # $9 will be set with authid value
+ next if $_->[0] eq '9'; # $9 will be set with authid value
my $letter = $_->[0];
next if defined $subfields{$letter};
my @values = $field->subfield($letter);