$comboboxes[$accountCount] = $main->AddCombobox(
	-name   	=> $accountName."ComboBox",
	-top    	=> $top,
	-left   	=> $left,
	-width   	=> 145,
	-height  	=> 150,
	-tabstop 	=> 1,
	-style 		=> WS_VISIBLE | 3 | WS_VSCROLL
);

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