open(FOLKS, "folks.txt") || die "can't open folks: $!";
while (<FOLKS>) {
  chomp;
  ($number, $addr1, $addr2, $addr3, $addr4) = (split /,/)[0,1,2,3,4];