$csv ->getline ($fh);

##</code><code>##

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

##</code><code>##

$VAR1 = \[
            '# de tienda',
            ' tipo',
            ' ubicacion',
            'li',
            'location1',
            'li',
            'location2',
            'li',
            'location3',
            'li',
            'location4',
            'li',
            'location5',
            'li',
            'location6',
            'li',
            'location7',
            'ff',
            'location8',
            'ff',
            'location9',
            'ff',
            'location10',
            'li',
            'location11',
            'ff',
            'location12',
            'ff',
            'location13',
            'ff',
            'location14',
            'ff',
            'location15',
            'li',
            'location16',
            'li',
            'location17',
            'ff',
            'location18',
            'ff',
            'location19',
            'ff',
            'location20',
            'ff',
            'location21',
            'li',
            'location22',
            'li',
            'location23',
            'ff',
            'location24',
            'ff',
            'location25',
            'ff',
            'location26',
            'ff',
            'location27'
          ];

##</code><code>##

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

##</code><code>##

local $/ = undef;