my (@desc, @data);
my $line = <DATA>;           # Throw away first line
push @desc, $line while ($line = <DATA>) !~ /Data:/;
@data = <DATA>;