Select Code to Download

my $switchdir = '/some/path';
my $host_hi = qr/some pattern of interest/;
...
    last if $hba_alias;  # as soon as we find a match, we're done
}
print "match found in $found_name: $hba_alias";

my %seeking = (
    $switchfqdn => { regex => qr/^fc.*?$hba_wwn/ },
...
        warn "no matches in $filename for $seeking{$filename}{regex}\n
+";
    }
}