use strict;
use warnings;

my @words;
my $i = 1;
while (1) {
  print "Enter word $i: >> ";
  $i++;
  chomp (my $word = <>);
  last unless length $word;
  push @words, $word;
}
print join(",", @words);