$s =  sprintf "%-8s%s", "val1", "name1";
print $s."\n";