while (my $item = get(...)) {
   ...
}