for my $location ( keys %devicecount ) {