#!/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; 

134 ; NRG DSm415
 16 ; HP LaserJet 4050 Series 
 13 ; hp LaserJet 4200
 8 ; HP LaserJet P2015 Series
 8 ; NRG MP 161
 7 ; hp LaserJet 2420
 6 ; HP LaserJet 4000 Series
 6 ; HP LaserJet 4100 Series
 5 ; hp LaserJet 4350
 3 ; NRG MP 7500
 3 ; hp LaserJet 2300 series
 3 ; RICOH Aficio MP 161
 3 ; HP LaserJet M3027 MFP
 2 ; HP LaserJet P3005
 2 ; 
 2 ; HP Color LaserJet 4700
 2 ; Samsung CLP-660 Series; OS 1.29.01.08 12-18-2007, 1.01.16,
 1 ; MFP Type 104; OS 1.06.00.02   06-08-2007, V4.01.01(Type 104) 06-
 1 ; hp color LaserJet 4600
 1 ; LANIER LP235c
 1 ; RICOH Aficio MP 7500
 1 ; hp 9200C Digital Sender
 1 ; hp LaserJet 4250
 1 ; Canon MF4690PL
 1 ; HP LaserJet 2200
 1 ; LANIER LD015
 1 ; RICOH Aficio MP 5000
 1 ; hp color LaserJet 2500
 1 ;