for my $linear ( @{$data->{linears}->{linear}} ){
  for my $pointTmc ( @{$linear->{pointTmc}} ){
  
    print "$pointTmc->{dataTypes}->{dataType}->{speedSources}->{speedSource}->{speed} \n";
    print "$pointTmc->{dataTypes}->{dataType}->{speedSources}->{speedSource}->{timestamp} \n";

  }
}