#!/usr/bin/perl

open (LS,"ls |" ) or die $!;
my @files = ();

while(<LS>){
  chomp;
  push @files, $_;
}
print "@files\n";