while my $list ( glob( $charset x 3 ) )
{
    do_something_with($list);
}