#!/usr/bin/perl
use strict;
use warnings;

my (@push_list) = map{"$_\n"} glob "*";

print "@push_list\n";