my ( $removeq ) = @_;