perl -MData::Dumper -e '@header=split ",",<>;while(<>){ @{$AoH[$row++]}{@header}=split ",";};print Dumper(\@AoH)' filename