my @data;
my $curr;

while (<DATA>) {
    $curr = $1, next if /^>DATA\s+SET\s+(\d+)/;
    push @{$data[$curr]}, $_;
}