perl добавить элементы в массив, cоздать массив...

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
local @ARGV = ('1.txt', '2.txt');
while (<>) 
{
    if (/YES/i)
    {
    	my @List = ();
    	
    	push (@List, $ARGV);
    	#print "$ARGV\n" ;
    	say Dumper \@List
    }
} 
continue 
{
   	close ARGV if eof;
}

$VAR1 = [
          '1.txt'
        ];

$VAR1 = [
          '2.txt'
        ];

$VAR1 = [
          '1.txt'
          '2.txt'
        ];