use strict;
use warnings;

my $sth = $dbh->prepare($query);
$sth->execute();

my ($TICKET_ID,$PRIORITY,$ABSTRACT);

$sth->bind_columns(\($TICKET_ID,$ABSTRACT,$PRIORITY));

while (my $row = $sth->fetchrow_arrayref) {

    print "$TICKET_ID $ABSTRACT $PRIORITY \n";

}

##</code><code>##

TICKET123 Server unpingable Medium
TICKET234 RPDU Audit Medium
TICKET345 Network down High
Ticket456 Check serial number Low
Ticket567 Critical server unpingable High

##</code><code>##

TICKET123 Server unpingable          Medium
TICKET234 RPDU audit                 Medium
TICKET345 Network down               High
Ticket456 Check serial number        Low
Ticket567 Critical server unpingable High