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