for my $argument ( keys %args )
{
    $self->$argument( $args{ $argument } ) 
        if exists $hash{ '_' . $argument };
}