use strict;
use warnings;

use HTML::HTML5::Parser;
use XML::LibXML::QuerySelector;
use Data::Dumper;

my $url = "http://www.pro-football-reference.com/boxscores/198509080ram.htm";

my %data = HTML::HTML5::Parser
	-> load_html(location => $url)
	-> querySelectorAll('table#game_info tr')     # get all rows from game_info table
	-> grep(sub { not $_->{class} eq 'thead' })   # ignore class="thead" row
	-> map(sub {                                  # map each row into a key, value pair
		my ($key, $value) = $_->querySelectorAll('td');
		return $key->textContent => $value->textContent;
	});

print Dumper \%data;

##</code><code>##

$VAR1 = {
          'Start Time' => '1:00pm',
          'Over/Under' => '38.0 (under)',
          'Surface' => 'grass',
          'Vegas Line' => 'Pick',
          'Weather' => '69 degrees, relative humidity 62%, wind 12 mph',
          'Stadium' => 'Anaheim Stadium'
        };