sub nick_ison {
    my ($nick) = @_;
    foreach my $nick_check (keys %fhs) {
        print "NICK: $nick\n";
        print "NICK CHECK: $nick_check\n";
        if ($nick =~ /^($nick_check)$/i) { return $nick_check }
    }
    return;
}