my $switchdir = '/some/path';
my $host_hi = qr/some pattern of interest/;

my $hba_alias;
my $found_name;

for my $name ( <$switchdir/*.swc> ) {
    open my $in, '<', $name or do {
        warn "unable to open $name: $!\n";
        next;
    };
    while (<$in>) {
        if ( /$host_hi/ and /:\s+device-alias/ ) {
            $hba_alias = $_;
            $found_name = $name;
            last;
        }
    }
    last if $hba_alias;  # as soon as we find a match, we're done
}
print "match found in $found_name: $hba_alias";

##</code><code>##

my %seeking = (
    $switchfqdn => { regex => qr/^fc.*?$hba_wwn/ },
    ...
);

for my $filename ( keys %seeking ) {
    open my $in, '<', $filename or do {
        warn "$filename: $!\n";
        next;
    };
    while (<$in>) {
        if ( /$seeking{$filename}{regex}/ ) {
            $seeking{$filename}{found} = $_;
            last;
        }
    }
    if ( $seeking{$filename}{found} ) {
        print "found in $filename: $seeking{$filename}{found}";
    else {
        warn "no matches in $filename for $seeking{$filename}{regex}\n";
    }
}