Select Code to Download

    while (<DATAFILEIN>) {
        chomp;
        my %record;
        @record{ @fields } = split /\|/;

        push @records, \%record;
    }

    my @fields = qw(
        time
...
        citystatezip
        fax
);

  for ( sort { $a->{'company_name'} cmp $b->{'company_name'} } @record
+s ) {
        print "$_->{'company_name'} and other fields here.\n"
    }

    while (<DATAFILEIN>) {
        chomp;
        my %record;
...
        my %rec = %{ $records{$_} };
        print "$rec{'company_name'} and other fields here.\n"
    }