sub PopulateComboBox {
	
	my $hash = shift;
	
	foreach my $key(keys (%$hash)){
		$MainWindow->FilterList->Add($key);
		foreach (@{$$hash{$key}}) {
			$MainWindow->FilterList->Add($_);
		}
	}
	$MainWindow->FilterList->SetCurSel(0);
}