my $vresult = $session->get_table(-baseoid => $hardware_info);
my %hashes = %{$vresult};

foreach my $key (keys %hashes){
    print ($key," : ",$hashes{$key},"\n");
}


##</code><code>##

.1.3.6.1.4.1.26543.2.5.1.3.1.19.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.2.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.13.0 :
.1.3.6.1.4.1.26543.2.5.1.3.1.16.0 :
.1.3.6.1.4.1.26543.2.5.1.3.1.21.0 :
.1.3.6.1.4.1.26543.2.5.1.3.1.22.0 :
.1.3.6.1.4.1.26543.2.5.1.3.1.1.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.12.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.23.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.17.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.18.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.14.0 : 
.1.3.6.1.4.1.26543.2.5.1.3.1.24.0 :
.1.3.6.1.4.1.26543.2.5.1.3.1.15.0 :

##</code><code>##

.1.3.6.1.4.1.26543.2.5.1.3.1.1.0
.1.3.6.1.4.1.26543.2.5.1.3.1.12.0
.1.3.6.1.4.1.26543.2.5.1.3.1.13.0
.1.3.6.1.4.1.26543.2.5.1.3.1.14.0
....
.1.3.6.1.4.1.26543.2.5.1.3.1.2.0
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0
.1.3.6.1.4.1.26543.2.5.1.3.1.21.0

##</code><code>##

.1.3.6.1.4.1.26543.2.5.1.3.1.1.0
.1.3.6.1.4.1.26543.2.5.1.3.1.2.0
.1.3.6.1.4.1.26543.2.5.1.3.1.12.0
.1.3.6.1.4.1.26543.2.5.1.3.1.13.0
..
.1.3.6.1.4.1.26543.2.5.1.3.1.19.0
.1.3.6.1.4.1.26543.2.5.1.3.1.20.0
.1.3.6.1.4.1.26543.2.5.1.3.1.21.0