#!/usr/bin/perl
use warnings;
use strict;

my @array_1;
if ( ( localtime() )[3] % 2 ) {
        @array_1 = ( 1, 2, 3, 4 );
}
push( @array_1, 5 );
print "@array_1\n";


my @array_2 = ();
if ( ( localtime() )[3] % 2 ) {
        @array_2 = ( 1, 2, 3, 4 );
}
push( @array_2, 5 );
print "@array_2\n";