my @filenames;
push @filenames, $_ while (<STDIN>);
chomp@filenames;

use Data::Dumper;
print Dumper(@filenames);