warn "$_, $sw.\n";