Assuming this is how you defined you array, then you can probably use something like this.

#!/usr/bin/perl

use strict;

my @AoH;
my @arrays = ( "a=1,b=5,c=8,d=89",
               "a=5,b=65,c=8,d=19",
               "a=41,b=98,c=8,d=34",
               "a=341,b=125,c=3,d=19",
               "a=65,b=23,c=8,d=70"
);

push ( @AoH, [ $arrays[$_] ] ) for (0 .. $#arrays);
[download]