This made me laugh today. Code I wrote.
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);
}
j