for (qw(A B C D E))
{
  $sheet->Range($_."1:".$_."5")->Font->{Bold} = 1;
}