#!/usr/bin/perl 
use strict;
use warnings;

my $SNMP_Target = "192.168.100";  # IP´s Hardcoded 
my $i = 20;
my $snmp_value;
my @a;

while ($i <= 254){
	$snmp_value = `snmpget -c public -v1 -OvQ $SNMP_Target.$i HOST-RESOURCES-MIB::hrDeviceDescr.1 2>1`;
	$snmp_value =~ s/\"//g;
	push(@a, $snmp_value);
	$i++;
}

my %hash;
$hash{$_}++ for @a;

my @sortiert = map{ "$_ $hash{$_} ;" }sort{ $hash{$b} <=> $hash{$a} }keys %hash;
print join " ", @sortiert;