my %sys_users;
@sys_users{ qw(root wwwrun mail news) } = ();

if ( exists $sys_users{$username} ) {
  # nix tun
}