open(my $find, "|-:utf8", "/usr/bin/find -type f >/dev/null") or die "Can't run find: $!\n";
while( <$find> ){
  push @array, $_;
}