#!/usr/bin/perl

use strict;
use IRC::Utils ":ALL";
use Data::Dumper;

my $users = {
    '*!~gdanko@**static.twtelcom.net' => {
        username => '*!~gdanko@*.static.twtelcom.net',
        password => 'abc123',
    },
    '*!~gdanko@*sd.sd.cox.net' => {
        username => '*!~gdanko@*sd.sd.cox.net',
        password => 'abc123'
    }
};

my $mask = 'gdanko!~gdanko@66-162-32-185.static.twtelecom.net';

foreach my $username (keys %$users) {
    if(matches_mask($username, $mask)) {
        print "user $mask exists\n";
    }
}