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

##</code><code>##

        push @records, \%record;
    }

##</code><code>##

    my @fields = qw(
        time
        company_name
        email
        member1
        member1phone
        data
        time2
        pictureurl
        password
        website
        member2
        member2phone
        address
        citystatezip
        fax
);

##</code><code>##

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

##</code><code>##

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

    # this makes the sorting a bit more straightforward:
    for ( sort keys %records ) {
        my %rec = %{ $records{$_} };
        print "$rec{'company_name'} and other fields here.\n"
    }