my @data;
my $count = 0;
while (<FOO>) {
  /^=+$/ and $count++, next;
  push @{$data[$count]}, $_;
}