#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use Data::Dumper;

open DATA, "filename" or die $!;

my @AoH;

for (<DATA>){
    
    my %hash;
    %hash = map { split '=' } split ',';

    push @AoH, \%hash;
}

print  Dumper \@AoH;