use strict;
use warnings;
use Data::Dumper;

my %hosts;
while (chomp(my $line = <DATA>)) {
    my ($key,$val) = split /\s+/, $line, 2;
    $hosts{$key} = $val;
}

print Dumper \%hosts;

__DATA__
XYZ1ADAIQ1   #AMI
XYZ1ADECQ1   #OAG
XYZ1ADEDQ1
XYZ1ADEDQ2   ##DMS Host