#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

use File::Find;

my $dir = '.';

my @array;
find(sub { push @array, $File::Find::name }, $dir);

print @array;