my $iter = $vars{cw}->iterator;
while ( my $next = $iter->() ) { 
say "next is $next";
my $next_decode   = decode( 'UTF-8', $next );
my $base = $next->basename();
say "base is $base";
my $base_decode   = decode( 'UTF-8', $base );
say "next decode is $next_decode";
say "base decode is $base_decode";
 }