Where do you populate @record? Such messages occur when populating an
array with contents of a file (if the file contains a bunch of newlines).
So make sure you know what the array is getting populated with by testing.
Also, you want to join before printing, correct? So swap the lines (but
that is not the cause of the warning).
> print OUTFILE "$recordlist\n";
>$recordlist=join(",",@record);
I will try to view the contents of @record with
foreach my $item (@record) {
print " ..... item: $item\n";
}
__________________
William Ampeh (x3939)
Federal Reserve Board
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
