my (edi_file, $po_data, @po_array);