foreach my $browser ( values %{$data->{devices}->{device}} ) {
  my $useragent = lc($browser->{user_agent});
  my $userfb = lc($browser->{fall_back});
  print Dumper(\$useragent, \$userfb, \$user);  
}