&clean_the_file();

sub clean_the_file {
        my ( $sourcefile, $removeq ) = @_;
        `grep -v $removeq $sourcefile > $tempfile`;
}