Just create your list variable in the main scope of your script, so it'll be in scope inside the sub:

my @list;
find( \&wanted, '.');
say for @list;

sub wanted {
        return unless -f;
        push @list, $File::Find::name;
}
[download]