sub convert {
      my %arg = (from   => 'default',
                 to     => 'default',
                 thing  => 'default',
                 @_);
      my ($from, $to, $thing) = @arg{qw /from to thing/};
      ...
   }