while (defined( my $i = $t->get )) { print $i; };