use strict;
use warnings;
use XML::Writer;
use IO::File;
use Data::Dumper;

my $CSVfile='1.csv';

my ($arrRef,@keys)= convertCsvToHash($CSVfile);
print Dumper $arrRef;
print Dumper \@keys;


sub convertCsvToHash
{
        my $file = shift;
        my @AoH;
        open(FILE, "$CSVfile") or die "$!";;
        my $header = <FILE>;
        chomp $header;
        my @keys = split ',',$header;
       
        while (my $data=<FILE>)
        {
            my %hash;
            chomp $data;
            my @values = split ',',$data;
            foreach my $key (@keys)
            {
               $hash{$key} = shift @values;
            }
            push @AoH, \%hash;
        }
        
        return \@AoH,@keys;
}
__END__
$VAR1 = [
          {
            'Phone' => '1111',
            'Name' => 'A',
            'Company' => 'X',
            'Email' => 'a.x@aol.com'
          },
          {
            'Email' => 'b.y@aol.com',
            'Company' => 'Y',
            'Name' => 'B',
            'Phone' => '0'
          },
          {
            'Email' => 'c.z@aol.com',
            'Phone' => '2222',
            'Name' => 'C',
            'Company' => 'Z'
          }
        ];
$VAR1 = [
          [
            'Name',
            'Company',
            'Email',
            'Phone'
          ]
        ];