foreach $r(@write)
{
    if ($url=~list$r=1) {
    print "hello";
    }
}