# $_ = sprintf "%%-%ds", length for @wide;
$result = "%%-%ds", length for @wide;