my %quantity=(YEAR => 5, MONTH => 4, WEEK => 3, DAY => 2, HOUR =>1);

my $a1="A,Star_1GB,MONTH,1000,0";
my $b1="B,Unlim60,MONTH,1000,6000";
my $b2="B,Unlim60,YEAR,1000,6000";
my $c1="C,Unlim,DAY,50,6000";
my $c2="C,Unlim,HOUR,50,6000";
my $d1="D,,MONTH,500,8000";
my @vals = ($a1, $b1, $b2, $c1, $c2, $d1);


@vals = map{$_->[0]} sort{$quantity{$b->[1]} <=> $quantity{$a->[1]}} sort{$b->[2] <=> $a->[2]} sort{$b->[3] <=> $a->[3]} map{[$_, /(YEAR|MONTH|WEEK|DAY|HOUR),([^,]*),([^,]*)$/i]} @vals;
print join("\n",@vals);