use strict;
use warnings;
use autodie;

my $file = shift @ARGV;
open my $fh, '<', $file;

my @files;
while ( my $line = <$fh> ) {
  chomp $line;
  push @files, $line unless $line =~ /^\s*$/;
}