#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump qw/dump/;
my $hostfile = "/etc/hosts";
my %hosts = ();
open FILE, "<", "$hostfile" || die "Cannot open $hostfile $!";
while (<FILE>) {
  next if /^\s*#/ ; # skip comments
  chomp;
  my ($key, $values) = split /\s+/, $_, 2;
  my @values = split /\s+/, $values;
  $hosts{$key} = \@values;
}
print dump(\%hosts), $/;
__END__
{
  "127.0.0.1" => ["localhost.localdomain", "localhost"],
  "127.2.3.4" => ["app.example.com"],
  "127.2.3.5" => ["www.example.com", "www", "web", "catalyst"],
  "127.2.3.6" => ["cisco.example.com", "router"],
  "127.2.3.7" => ["mail", "mail.example.com", "mx1"],
}