#!/usr/bin/perl
use strict;


my $Action;

my $piece;

   $piece->{this} = 123;
   $piece->{that} = 'some text';

   foreach my $other (111...113){
           $piece->{theother} = $other;
           push(@{$Action}, $piece);
   }

   use Data::Dumper;
   print Dumper($Action);

foreach my $section (@{$Action}){
        print Dumper($section) . "\n";
}


##</code><code>##

  $Action->[
             {  this => 123, that => 'some text', theother => 111 },
             {  this => 123, that => 'some text', theother => 112 },
             {  this => 123, that => 'some text', theother => 113 }
           ]

##</code><code>##

$VAR1 = [
          {
            'that' => 'some text',
            'theother' => 113,
            'this' => 123
          },
          $VAR1->[0],
          $VAR1->[0]
        ];
$VAR1 = {
          'that' => 'some text',
          'theother' => 113,
          'this' => 123
        };

$VAR1 = {
          'that' => 'some text',
          'theother' => 113,
          'this' => 123
        };

$VAR1 = {
          'that' => 'some text',
          'theother' => 113,
          'this' => 123
        };