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

local $/ = "-------------------------\n";
my @records;

while (<DATA>) {
    chomp;

    next unless length;
    push @records, [split "\n"];
}

print Data::Dump::dump (\@records);


__DATA__