Select Code to Download

use strict;
use warnings;
...
    print "$TICKET_ID $ABSTRACT $PRIORITY \n";

}

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

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