#!/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 _;
   }
}