my $bof_DATA = tell DATA; # Save the location of DATA BOF.
my @slurp = <DATA>;       # Read in the DATA segment.
seek DATA,$bof_DATA,0;    # Return to the beginning of the
                          # DATA segment.
local $, = ", ";
print <DATA>, "\n";       # Run through DATA a second time.