use warnings;
use strict;
my (@size) = (2,3,4);
my ($freq) = 'FREE';
my $data = @size;
if ($data >= 1) {
  print "MADE IT IN HERE\n";
}

if (($freq eq 'FREE') && ($data >= 1)) {
  print "MADE IT INTO THE LOGICAL AND\n";
}
[download]

D:\tmp>perl test.pl
MADE IT IN HERE
MADE IT INTO THE LOGICAL AND

D:\tmp>