Ok, color me newb, but what's wrong with that?
-----Original Message-----
For all these attibutes fill one object from another...
my $hdr = $self->get_HDR;
foreach (qw( cty hrs aad ars gmt sct sga loc sff utt sqn typ pri )) {
my $method1 = "set_" . uc($_);
my $method2 = "get_hdr_$_";
$hdr->$method1($pegasus_bout->$method2);
}