$csv->print ($fh, [ $nodehash->{$_}->{nodeid},
                          $nodehash->{$_}->{title},
                          $nodehash->{$_}->{rep},
                          $nodehash->{$_}->{date}
                        ]
                  )
# Can be written like:
      $csv->print ($fh, [ @{ $nodehash->{$_} }{
                               qw(nodeid title rep date)
                          }
                        ]
                  )

##</code><code>##

$hashref->@{qw(this that other)}