use Data::Dumper 'Dumper';
die Dumper \@file_names;