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