#!/usr/bin/perl

use strict;
use warnings;

my @arr;
my $string = 'Initial';

($#arr == -1 ) ? print('True') : print ('False');
($#arr == -1 ) ? ($string = 'True') : ($string = 'False');

print "\n\$string  = $string";
print "\n\$#arr    = $#arr\n";