my @blah;
print $blah[-1] . "\n";

$blah[-1] = "yes";
print $blah[-1] . "\n";