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";


=Output
True
$string  = False
$#arr    = -1
=cut