writing an array to file

[Kaustav Bhattacharya]

I have an array populated with data, I want to dump its content to file but
my following code is not writing any data out! HELP:

sub wanted {
        @FILES = ();
        if ( $File::Find::name =~ /_boot\.js$/ )
                {
                   push @FILES, "$File::Find::name\n";
                }

        print (@FILES);

        open(BOOT_FILES,">boot_files.txt");
        print BOOT_FILES @FILES;
        close BOOT_FILES;
}


Kaustav