....
my ($self,$args) = @_;  # Should that be @args, not $args
my $find = $self->{where};            
$find->{name} = 'test'; # You didn't need the {} around find.