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

my @foo = (
    "Mapping a drive to build machine 10.211.32.254..\rMapped to V drive",
    'Deleting TestHarness_LUA directory..',
    'Deleting TestHarness_LUA-distribution.zip file..',
    'Copying TestHarness_LUA-distribution.zip from mapped V drive..'
);

for (@foo) {
my $status = "done.";
format STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<
$_, $status
.
    write while $_;
}