open(IN, "<$mailer_data_location"); my @foo = map { [(split(/\|/, $_))] } ; close(IN);