...  
  my $decoded = decode_json( $response->content ); 
  if ($type eq "local") {
     print Dumper(\%$decoded); #only with: use Data::Dumper;
    my $value = $decoded->{data}->{tuples}[0][1]; # < Hier kommt der Fehler: not a hash refence