Chew^⬈ can drastically reduce the amount of code you write for web scraping.

use LWP 5.64;
my $browser = LWP::UserAgent->new;
$browser->agent("Mozilla/5.0");
my $res = $browser->get("https://en.wikipedia.org/wiki/Template:COVID-19_pandemic_data");
my @lines = split /\n/, $res->decoded_content;
my $processing = 0;
print "country\tcases\tdeaths\n";
for (my $a = 0; $a < @lines; $a++) {
   if ($lines[$a] =~ /\<span class="flagicon"\>/) {
      my @array1 = split /\"\>|\<\/a\>/, $lines[$a+2];
      print $array1[2]."\t";
      my @array2 = split /\"\>|\<\/td\>/, $lines[$a+4];
      print $array2[1]."\t";
      my @array3 = split /\"\>/, $lines[$a+6];
      $array3[1] =~ s/^[^0-9]$/NA/;
      print $array3[1]."\n";
   }
}

use strict;use warnings;use sigtrap;
use open ":std", ":encoding(UTF-8)";
use LWP 5.64;
my $chewBrowser = LWP::UserAgent->new;
$chewBrowser->agent("Mozilla/5.0");
my %capturedData;
my @fieldNames = ("country","cases","deaths");
my %chewFieldInitiations;
foreach (@fieldNames) { $chewFieldInitiations{$_} = 0; }
my $outputRowCount = 0;
my $chewWarnings = "";
my @fileList = ('https://en.wikipedia.org/wiki/Template:COVID-19_pandemic_data');
for (my $fi = 0; $fi < @fileList; $fi++) {
   my @chewLines = chewURLlines($chewBrowser,$fileList[$fi]);
   die "Could not fetch $fileList[$fi]\n" unless @chewLines;
   my $processing = 0;
   for (my $a = 0; $a < @chewLines; $a++) {
      if ($chewLines[$a] =~ /<span class="flagicon">/) {
         if (exists($chewLines[$a+2]) && $chewLines[$a+2] =~ /\"\>|\<\/a\>/) {
            my @array1 = split /\"\>|\<\/a\>/, $chewLines[$a+2];
            $chewFieldInitiations{country}++ if defined($array1[2]);
            push @{ $capturedData{country} }, $array1[2] if defined($array1[2]);
         }
         if (exists($chewLines[$a+4]) && $chewLines[$a+4] =~ /">|<\/td>/) {
            my @array2 = split /">|<\/td>/, $chewLines[$a+4];
            $chewFieldInitiations{cases}++ if defined($array2[1]);
            push @{ $capturedData{cases} }, $array2[1] if defined($array2[1]);
         }
         if (exists($chewLines[$a+6]) && $chewLines[$a+6] =~ /">/) {
            my @array3 = split /">/, $chewLines[$a+6];
            if (defined($array3[1])) {
               $array3[1] =~ s/^[^0-9]+$/NA/g;
               $chewFieldInitiations{deaths}++;
               push @{ $capturedData{deaths} }, $array3[1];
            }
         }
      }
   }
}
foreach (@fieldNames) {
   if ( $chewFieldInitiations{$_} ) {
      if ( $outputRowCount != 0 && $outputRowCount != @{ $capturedData{$_} } ) {
         $chewWarnings .=
         "WARNING: Output column \"$_\" has a different length than a previous column.\n";
      }
      if ( $outputRowCount < @{ $capturedData{$_} } ) {
         $outputRowCount = @{ $capturedData{$_} };
      }
   } else {
      $chewWarnings .= "\nWARNING: Output column \"$_\" contains no data.\n";
   }
}
my @chewOutputLines;
for (my $i = 0; $i < $outputRowCount; $i++) {
   $chewOutputLines[$i] = "";
   foreach (@fieldNames) {
      if ( defined( ${ $capturedData{$_} }[$i] ) ) {
         $chewOutputLines[$i] .= ${ $capturedData{$_} }[$i];
      }
      $chewOutputLines[$i] .= "\t";
   }
}
foreach (@fieldNames) { print "$_\t" }
print "\n";
foreach (@chewOutputLines) { if ($_) { print "$_\n" } }
warn $chewWarnings if $chewWarnings;
sub chewURLlines {
   my $res = $_[0]->get($_[1]);
   die "ERROR at $_[1]\n", $res->status_line, "\n Aborting\n" unless $res->is_success;
   return (split (/\n/, $res->decoded_content));
}

import re
import requests
import urllib.request
import sys
capturedData= {}
url = 'https://en.wikipedia.org/wiki/Template:COVID-19_pandemic_data'
headers = { 'User-Agent': 'Mozilla/5.0' }
response = requests.get(url, headers=headers)
if response.status_code != 200:
  raise Exception(response.raise_for_status())
chewLines = response.text.splitlines()
processing = 0
fieldNames = ["country","cases","deaths"]
chewFieldInitiations = {}
for fname in fieldNames:
  chewFieldInitiations[fname] = 0
  capturedData[fname] = []
for a in range(len(chewLines)):
  if re.search(r'<span class="flagicon">', chewLines[a]):
    if re.search(r'\"\>|\<\/a\>', chewLines[a+2]):
      array1 = re.split(r'\"\>|\<\/a\>', chewLines[a+2])
      capturedData["country"].append( array1[2] )
    if re.search(r'">|<\/td>', chewLines[a+4]):
      array2 = re.split(r'">|<\/td>', chewLines[a+4])
      capturedData["cases"].append( array2[1] )
    if re.search(r'">', chewLines[a+6]):
      array3 = re.split(r'">', chewLines[a+6])
      if array3[1]:
        array3[1] = re.sub(r'^[^0-9]+$/', 'NA', array3[1])
        chewFieldInitiations["deaths"] = chewFieldInitiations["deaths"] + 1
        capturedData["deaths"].append( array3[1])
outputLines = []
outputRowCount = 0
for field in fieldNames:
  if ( outputRowCount < len(capturedData[field]) ):
    outputRowCount = len(capturedData[field])

for i in range(outputRowCount):
  outputLines.append("")

for i in range(outputRowCount):
  for field in fieldNames:
    if ( i < len(capturedData[field])):
      outputLines[i] = outputLines[i] + str(capturedData[field][i])
    outputLines[i] = outputLines[i] + "\t"
fieldString = ""
for field in fieldNames:
  fieldString = fieldString + field + "\t"
print(fieldString)
for line in outputLines:
  print(line)