foreach my $file(@array){
... get filenames ...
}