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

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