$Text::Wrap::columns = 30;

$one = wrap('', '', $one);
$two = wrap('', '', $two);
$three = wrap('', '', $three);