Source code in the perl programming language

my @point = (3, 8);


my %point = (
   x => 3,
   y => 8
);


package Point;

use strict;
use base 'Class::Struct'
    x => '$',
    y => '$',
;

my $point = Point->new(x => 3, y => 8);