use strict;
use warnings;

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

##</code><code>##

C:\src\perl\perlmonks\636961>perl -wc 636961.pl
"my" variable @pages masks earlier declaration in same scope at 636961.pl line 17.
String found where operator expected at 636961.pl line 220, near "$  print "@SonarData\n""