Select Code to Download

foreach ($self->{'sections'})
{
  ..use $_ here to do stuff..
}

print ref($_);

   my $val = $_;

...
         return 'obj';
      }
   }

my $sections = (qx!rabin -Svv $filename!);
my @detected_sections = ();
...
   push (@detected_sections, %section_int);
}
$report->{'sections'} = @detected_sections;