while (my @row = $sth->fetchrow_array) {
  print ivr_call(        $row[5] );
  print non_outage_call( $row[6] );
}

sub ivr_call {
  my $checked = shift eq '1' ? 'checked' : '';
  return "<td><form><input type='checkbox' name='ivr_call' value='1' $checked>IVR Call Volume</form></td>";
}

sub non_outage_call {
  my $checked = shift eq '1' ? 'checked' : '';
  return "<td><form><input type='checkbox' name='non_outage_call' value='1' $checked>Non-Outage Call Volume</form></td>";
}