diff --git a/tcpdi.php b/tcpdi.php
index 7faf417..3e2bb71 100644
--- a/tcpdi.php
+++ b/tcpdi.php
@@ -626,7 +626,7 @@ function pdf_write_value(&$value)
 
                 reset ($value[1]);
 
-                while (list($k, $v) = each($value[1])) {
+                foreach ($value[1] as $k => $v) {
                     $this->_straightOut($k . ' ');
                     $this->pdf_write_value($v);
                 }
@@ -841,4 +841,4 @@ function hex2str($hex) {
     function str2hex($str) {
         return current(unpack('H*', $str));
     }
-}
\ No newline at end of file
+}