my @lines # where we want to store the data
my $testfile = shift;
# populate lines in dull bit here if testfile is a file
chomp (@lines = (<DATA>)) unless -f $testfile;
print join " * ", @lines;
__DATA__
in
the world
of the mules
there
are
no rules