#!/usr/bin/perl -w

package McTest;

use strict;

sub new {
  my ($class, $path) = @_;

  print $path . "\n";
  open LOG_FILE, '<', $path;
  my @lines = <LOG_FILE>;
  close LOG_FILE;

  my $self = {
    loglines => \@lines
  };

  bless($self, $class);

  return $self;
}

my $mctest = McTest->new("access.log");

# referenced version
foreach my $l($mctest->{loglines}) {
  print $l . "\n";
}

# unreferenced version
my @unref_array = $mctest->{loglines};
foreach my $l(@unref_array) {
  print $l . "\n";
}