@array1 = ("a", "a sdfasdf value" , "medium");
@array2 = ("b", "a  asdfa     asdfasdfsadfs value" , "medium");
@array3 = ("c", "a value" , "high");

use Text::ASCIITable;
$t = Text::ASCIITable->new();

$t->setCols('Id', 'Name' ,' Pri');

$t->addRow(@array1);
$t->addRow(@array2);
$t->addRow(@array3);

print $t;