Select Code to Download

#!/usr/bin/perl -w
use strict;
...
foreach my $f (@files) {
  print "$f<br>\n" unless grep {$f eq $_} @noshow;
}