Select Code to Download

#!/usr/bin/perl -w
use strict;
...

Last,First,Address,Apt,City,St,Zip,Email,Notes
zacks,evan,123 main,,ann arbor,mi,48104,evan@zacks.org,perlmonks++

# pretty much the same as above (weak, i know)
while (<>) {
...
while (<>) {
  push @entries, { mapcar { @_ } \@fieldnames, [ split /,/ ] };
}