my ( $sourcefile, $removeq )= @_;