my %objects = ( 'name' => $name, 'rank' => $rank, 'serial' => $serial);
foreach (@names) {
	$objects{$_}->insert('end', $dat{$_});
}