length delete ($hash{$key}) || print " There is some error : $! ";