Select Code to Download

$ids{$accountnumber}= "$acc_id:$1$accountnumber";

my($acc_id,$fullaccount)= split /:/,$ids{$accountnumber};