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;
}