#!/usr/bin/perl -w

my @cut = qw( this is a bunch of entries in an array that I want to see what it outputs as if I just print the array as
a whole ok? );

print("<B>Digested:</B>@cut</TD></TR>");

__END__
<B>Digested:</B>this is a bunch of entries in an array that I want to see what it outputs as if I just print the array as a whole ok?</TD></TR>