Simply shift off the first argument from @_ before proceeding with messing with it:

sub doThat {
    my $self = shift;
    my %ARGS = (chew => 'meat', @_);
    return "I like to chew $ARGS{chew}!\n";
}
[download]