#!/usr/bin/perl -w
use strict;

my $arrayref = 1;
for (@$arrayref) {
    print "ok\n";
}