use MyHosts;

while( my ($name, $reg) = each %MyHosts::hosts ) { }

# ...

package MyHosts;

use strict;

our %hosts = (
  'Server Name' => qr(?i:serverpattern),
);