Select Code to Download

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

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

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