Method 1:
---------

for ( keys %hash ) {
    my $method = "set_$_";
    $object->$method( $hash{ $_ } );
}

Method 2:
---------
for ( keys %hash ) {
    $object->${ \"set_$_" }( $hash{ $_ } );
}