p.pl

package Point;

use 5.022;
use strict;
use warnings;
use Mojo::Base -base;

has [qw/x y/];

package main;

my $total = 0;
for (1..1_000_000) {
    my $p = Point->new(x => 2, y => 3);
    $total = $total + $p->x + $p->y;
}
say $total;