#!/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);

##</code><code>##

 VALUE   $VAR1 = {
          'E2' => 'valid',
          'E1' => 'valid'
        };
$VAR2 = $VAR1;

##</code><code>##

$VAR2 = {
          'E2' => 'valid',
          'E1' => 'valid'
        };