#!/usr/bin/perl
use strict;
my $scalar = "We Be Killing Zombies Tonite";
my @array = (">poo.txt", ">moo.txt", ">doo.txt". ">goo.txt");

open(FILE1, $array[0]) or die "uno problemo";
open(FILE2, $array[1]);
open(FILE3, $array[2]);
open(FILE4, $array[3]);

foreach(@array){
print $array[$_] ("$scalar");
}