#!/usr/bin/perl -W
use Data::Dumper;

my %customer_type;
#my @exist_customer_id;
my @customer_id = ('E1', 'E2');
my @customer_count = ('1', '2');
foreach (@customer_count){						
	foreach(@customer_id){							
		#push(@exist_customer_id, $_);
		$customer_type{$_} =  "valid";
	}
	push(@customer_type, \%customer_type);
}	



print STDOUT " VALUE   " . Dumper(@customer_type);