my @names = ("name", "rank", "serial_number");

foreach (@names) {
	(eval "\$$_")->insert('end', $dat{$_});
}