push @lines35char, $value1;
push @lines35char, $value13;
push @lines35char, $value 22;
sprintf "%-35.35s", $_ for @lines35char;