my $dir;
my $pattern = $version; 
OUTER: foreach ( @list_level_top ) {
    my $name = "$_" . "/*"; 
    my @list_level_current_version = (glob ($name));
         foreach (@list_level_current_version) { 
             if ($_ =~ /\Q$pattern/) { $dir = $_; last           OUTER; } 
}
}