#!/usr/bin/perl -w
use strict;

my ($ticket,$text,$priority) = 
   ("Ticket567", "Critical server unpingable", "High");

printf "%-9s %-30s %s", $ticket,$text,$priority;
# Ticket567 Critical server unpingable     High