use strict;
use File::Find;

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

sub process_item{
    push(@files,$File::Find::name) if(-f $File::Find::name);
}

find(\&process_item, $startdir);

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