if (grep $_,
    my $num  = $recFono->field_as_text('102'),
    my $type = $recFono->field_as_text('104'),
) {
    ...
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.