$VAR1 = {
          'quux' => 'perl',
          'foo' => 'bar'
        };
$VAR1 = 2;

##</code><code>##

sub client_input {
  my ($input, $wheel_id) = @_[ARG0, ARG1];

  use Data::Dumper;
  
  print Dumper $input;
  print Dumper $wheel_id;
  
  $_[HEAP]->{clients}->{ $wheel_id }->put( $input );
}