#!/perl/bin/perl

use strict;

my @original_files = qw/ fred barney betty wilma pebbles dino bamm-bamm /;
my @big_old_files;                   # The ones we want to put on backup tapes
foreach (@original_files) {
  push @big_old_files, $_
    if (-s) > 100_000 and -A _ > 90; # More efficient than before
}

##</code><code>##

#!/perl/bin/perl

use strict;

my @original_files = qw/ fred /;
my @big_old_files;
foreach (@original_files) {
   if ((-s) > 0 and -A _ > 0) {
      push @big_old_files, $_;
      print _;
   }
}