my @array = (
  [  bob => "section-a"],
  [ bob => "section-b"]
);
for ( @array ) {
  my ( $a, $b ) =  @$_;
  print "$a => $b\n";
}