>>102
うは、正規表現を使いますか。
(foreachは遅いとかの突っ込みは無しの方向で)

my $tm = $in{timeh};
my $mons_id = $mons_to_index{$in{mons}} || @tempmons;

foreach my $hour (@hourlist){
foreach(1..$mons_id){
$hour =~ m/<>/g;
}
$hour =~ s/\G[^<>]+/$tm/;
}