Good, now again:
arch=$(dpkg --print-architecture)
mawk '/^Package: /{print $2}' /var/lib/dpkg/status.old | while read -r package
do
echo
echo "$package found in old package list"
grep "^Package: $package$" /var/lib/dpkg/status && continue
echo "$package not in new package list"
[[ -f /var/lib/dpkg/info/$package.list || -f /var/lib/dpkg/info/$package:$arch.list ]] || continue
echo "$package is actually installed"
sed -n "/^Package: $package$/,/^$/p" /var/lib/dpkg/status.old >> /var/lib/dpkg/status
echo "$package added to new list"
done
dpkg -l --no-pager iptables raspberrypi-kernel