my %registers = %{$d->{regs}->{r}};
foreach my $reg (keys %registers){
  # read_input_registers returns an array reference
  my $tmp = $mbc->read_input_registers(hex $reg, $registers{$reg});

  $r->{$reg} = _prettify_byte($tmp);
};