my $sql = qq(SELECT * from $status WHERE ticket_id=?);
my $sth = $dbh->prepare($sql);
$sth->execute($ticket);
my $record = $sth->fetch;

for (@$record[1..9]) {
   $_ =~ s/($change)/<font color=red>$1<\/font>/i;
   $_ =~ s/^\s.*/<br><br>/g;
}