open ($po_data, '<', $edi_file) or die "Could not open the file '$edi_file' $!\n";
  undef $/;
  @po_array = split (/\~/, <$po_data>);