in reply to Can I rewrite this code?

Assuming you don't need the $args scalar variable: 
    my %args = %{ $_[0] };

[download]

In Section Seekers of Perl Wisdom