Select Code to Download

    $object->set_date( $hash{ date } );

Method 1:
...
    $object->${ \"set_$_" }( $hash{ $_ } );
}

    $object ->${ \"set_$_" }( $hash{$_} );

    #!/usr/bin/perl
...
              }
    );

                 Rate    deref temp_var
    deref    176991/s       --     -18%
    temp_var 215054/s      22%       --