use strict;
use warnings;

while(<DATA>)
{
        chomp;
        my @pages = split(/\+\+/, $_);
        my @SonarData = ();
        my %DOWN = ();