interfaces.ifTable.ifEntry.ifDescr.1 = STRING: Ethernet1
interfaces.ifTable.ifEntry.ifDescr.2 = STRING: Ethernet2
interfaces.ifTable.ifEntry.ifDescr.3 = STRING: Serial0

##</code><code>##

my %values;
foreach $column (@columns) {
     # get all the values for $column for $node           
     $values{column} = [`snmpwalk $node VER143r $column`];  
     foreach (@($values{column})){
          if (/=\s*(.*)$/) {      
                  $val = $1;
          } else {        
                  $val = "???";
          }
          $_ = $value;
      }
}
# now we have all of each column
foreach my $row (0..$#( $values{$columns[0]}}){
   foreach my $col (keys %values){ #(for each column)
     my $line = "";
     $line .=  $values{$col}[$row] . ","; 
   }  
   print "-- $row, $val\n" if $debug;   
}  
chop $line;             
print CSV $line."\n";