print "\@all = (",join(',',map { "'$_'" } @all),")\n";