my %newhash;
$newhash{$array[0]}=[];