foreach my $x (0..$count){
    $SUB = accounts[$x]."ComboBox_Change";
    *$SUB = sub { ComboBox $x };
}