for my $listing (@listings) {
    my @list = grep {length} split '~', $listing;

    my %data;
    @data{@keys} = @list;

    print "Item1 is ", $data{'ItemName1'}, $/;
    print "Item2 is ", $data{'ItemName2'}, $/;

    push @{$hoa{$keys[$_]}}, $list[$_] for 0..$#keys;
}