Select Code to Download

my $iter = $vars{cw}->iterator;
while ( my $next = $iter->() ) { 
say "next is $next";
...
say "next decode is $next_decode";
say "base decode is $base_decode";
 }