Select Code to Download

$csv ->getline ($fh);

  my $header = $csv ->getline ($fh);
  print Dumper(\$header), "\n";

$VAR1 = \[
            '# de tienda',
...
            'ff',
            'location27'
          ];

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

local $/ = undef;