I have this routine up and running:

opendir (DOPPLER, "/path to file/");
@filenames = grep (!/^capture/ && /-/, readdir (DOPPLER));
closedir (DOPPLER);
$number = @filenames;
print "$number<br><br>";
print join('<br>', sort (@filenames));

exit;

What I would like to do is instead of printing every file in the directory, is print every other file.

Can anyone help with this?