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