my $file1 = "foo.txt";
my $file2 = "bar.txt";

my @array1 = ($file1, $file2);

# or

my @array2;
print "Enter a file: ";
while (<>) {
  chomp;
  push @array2, $_;
  print "Enter a file: ";
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.