#!/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";
}