while(($key, $msg) = each %$msg) {
	process_msg($bs,$msg);
}

##</code><code>##

while(($key, $msg) = each %$record)

##</code><code>##

foreach my $msg (values %$records) {
	process_msg($bd, $msg);
}