my $imagen0 = Image::Magick->new;
$imagen0->Set(size=>'128x70');
$imagen0->ReadImage('canvas:transparent');
$imagen0->Annotate(font=>"/fonts/trebucbd.ttf", pointsize=>24, fill=> $fontcolor1, gravity=>'Center', text=>$p12hrn0);

my $imagen1 = Image::Magick->new;
$imagen1->Set(size=>'128x70');
$imagen1->ReadImage('canvas:transparent');
$imagen1->Annotate(font=>"/fonts/trebucbd.ttf", pointsize=>24, fill=> $fontcolor1, gravity=>'Center', text=>$p12hrn1);
 
my $imagen2 = Image::Magick->new;
$imagen2->Set(size=>'128x70');
$imagen2->ReadImage('canvas:transparent');
$imagen2->Annotate(font=>"/fonts/trebucbd.ttf", pointsize=>24, fill=> $fontcolor1, gravity=>'Center', text=>$p12hrn2);

...10 total

##</code><code>##

$image->Composite(geometry => '+188+675', image => $imagen0 );
$image->Composite(geometry => '+365+675', image => $imagen1 );
$image->Composite(geometry => '+542+675', image => $imagen2 );
...10 total

##</code><code>##

for my $i (@$times) {
 
    my $imagen($i) = Image::Magick->new;
    $imagen($i)->Set(size=>'128x70');
    $imagen($i)->ReadImage('canvas:transparent');
    $imagen($i)->Annotate(font=>"/fonts/trebucbd.ttf", pointsize=>24, fill=> $fontcolor1,     gravity=>'Center', text=>$i);
}


my $dayy = 675;
my $dayx = 188;
my $dayoff = 177;
my $daygeo = "";

for my $i (@$times) {

     $daygeo = "+" . $dayx . "+" . $dayy;
     $image->Composite(geometry => $daygeo, image => $i );

     $dayx = $dayx + $dayoff;
}