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