@attribute_list = qw( foo bar baz );
$package="Zoikes";
for (@attribute_list) {
    my $sub = qq{package $package; sub get$_ { \$_[0]->get("$_") } };
    eval $sub;
    warn "Problem with $_: $@\n" if $@;
}

{ package Zoikes; sub get { print "Zoikes::get( $_[1] )\n" } }
$z = bless { }, "Zoikes";

$z->getfoo;
$z->getbar;
$z->getbaz;

exit 0;