ID|Category|Name|Image|Description|Price|Taxable|thumb|Listing

##</code><code>##

open DATA,$data;

$line=<DATA>;
@fields=split('\|',substr($line,0,index($line,";")));

%data=();
while (<DATA>) {
  my(@flds)=@fields;  shift(@flds);
  my(@temp)=split('\|',substr($_,0,index($_,";")));
  my($id)=shift(@temp);

  while ($#flds>-1) {
    if ($temp[0] eq "no") {
      $temp[0]="";
    }

    $data{$id}{shift(@flds)}=shift(@temp);
  }
}
close DATA;