#! /usr/bin/perl -w

use strict;


my @arraytest = ("1111");
my $variable = "test";

print "@array$variable";