$idx = 0;
 
foreach $n (@IDs) {

push @{$An{$n}->{b}} , $bb[$idx];
push @{$An{$n}->{c}} , $cc[$idx];
push @{$An{$n}->{e}} , $ee[$idx];
push @{$An{$n}->{d}} , $dd[$idx];
push @{$An{$n}->{f}} , $ff[$idx];
	
$idx++;
	
}