use strict;
use File::Find;

my $var   = '';
my @files = ();
my $startdir = '.';

sub process_item{
   push(@files,$File::Find::dir) if(-f $_ && !-e $File::Find::dir );
}

find(\&process_item, $startdir);

print join("\n", (@files));