#!/usr/bin/perl

use strict;
use warnings;

my @array = ();
my $tmp = 'CONTENT';

push(@array, $tmp);
print @array;