Assign string array to @ARGV by using qw
#!/usr/bin/perl -w use strict; @ARGV = qw/file1.txt file2.txt file3.txt/; while (<>) { print; }