use strict;
use warnings;
use Data::Dump::Streamer;

my %uberHash;

while (<DATA>) {
    #parse data and populate uberhash
}

Dump (\%uberHash);

__DATA__
your sample data here (about 5 shortish lines ought be enough)