my $a = @oldfiles;
my $b = @newfiles;

if ( $a ne $b ) {
    print "the numbers are not equal\n" and die;
    }