my @reserved = qw(administrator mail-admin spam-admin);

die "Please choose another name\n" if ( grep(/^$username$/i, @reserved) );