perl -nle'
   push @w, $_;
   END { print join ";", @w }
'