#!/usr/bin/perl

my %ACCTS = ();

open(IN, "< myfile") || die "Help!\n";

while (<IN>) {

($id, $name, $street, $city, $zip, $phone, $start_dt) = split(/\|\|/, $_);

$ACCTS{$name}{$street}{$city}{$zip}{$phone}{$start_dt}=$id;

}

close IN;