#!/usr/bin/perl
use strict;


my $Action;

my $piece;

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

   foreach my $other (111...113){
           my $thispiece = {%$piece};  # create a deep copy
           $thispiece->{theother} = $other;
           push(@{$Action}, $thispiece);
   }

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