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

##</code><code>##

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