#!/usr/bin/perl 

use strict;
use warnings 'all';


use variable i     => 0;
use variable array => [];

array = [2, 4, 5, 8];

for (i = 0; i < 4; i ++) {
    print array -> [i], "\n";
}

__END__
2
4
5
8