add comparing-scalars-in-perl