my @file_name;
while (<FH>) {
    push (@file_name, $_);
}

##</code><code>##

my @file_name = <FH>;