foreach my $browser ( %{$data->{devices}->{device}} ) {
  print "$data->{devices}->{device}->{$browser}->{user_agent}<br>";
}