perl -ne'
   BEGIN { $\ = "\n"; }
   chomp; push @w, $_;
   END { print join ";", @w }
'