use strict;
use warnings;

my @array = ("Hello world\n");
if (@ARGV) {
    print $array[0];
}