#/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my $a="A,Star_1GB,MONTH,1000,0";
my $b="B,Unlim60,MONTH,1000,6000";
my $c="C,Unlim,DAY,50,6000";
my $d="D,,MONTH,500,8000";


my @DA_head=qw(name check duration quantity  price);
my @DA;
                                        
foreach ($a,$b,$c,$d){
         my %rec;
         
         @rec{@DA_head} =split(',',$_);
         push @DA, \%rec;
}

print Dumper(\@DA);