my $adr01 = sprintf("%16.16s, %10.10s %1.1s\r",$last,$first,$mi);
$adr01 .= sprintf("%30.30s\r%30.30s\r",$adr1,$adr2);
$adr01 .= sprintf("%16.16s %2.2s %10.10s",$city,$state,$zip);