#!/usr/local/bin/perl

use strict;
use warnings;

my @records;

my $record = Enter->new;
$record->set_id(1);
push @records, $record;

for my $rec (@records){
	printf qq{id: %s\n}, $rec->get_id;
}


package Enter;

sub new {
	my ($class) = @_;
	my $self = {};
	bless $self, $class;
	return $self;
}

sub set_id {
	my ($self, $id) = @_;
	$self->{id} = $id;
}

sub get_id {
	return shift->{id};
}