in reply to Re^3: how to manage a large console menu
in thread how to manage a large console menu

For slightly less redundancy, how about: 
my @systems = (
  [ system1 => host_1 ],
  [ system2 => host_2 ],
  [ system3 => host_4 ],
  #etc
);

[download]

In Section Seekers of Perl Wisdom