my $file =
"
JOHND,NY,NY,11111
MARY,SOMEWHERE,OK,22222
JOE,LONDON,LO,33444
";