my %systems;
@{ @systems } = 
  qw( 
      hostname_to_first_system
      hostname_to_system1
      ...
    ) ;