pdl> @a = $a->list; pdl> for($a->list) { print $_, - ; }
0-2-4-6-8-