use 5.010; 这是什么东西

use 5.010;

如果不加这个
下面的代码就报错
foreach ( $element->content_list ) {
        when  ( ! ref ) { 1 }
        when ( $_->tag eq 'script' ){
            $_->delete;
            }
        default
            {
            push @queue, $_
            }
        }
    }

版本号-5.10版

记得加上0