for my $point ( @{$aoh} ) {
   for my $type ( qw ( start stop step ) ) {
      print "$type = " . $point->{$type} . "\t";
   }
   print "\n";
}