Select Code to Download

$#data ++

#!/usr/bin/perl
use warnings;
...
for my $d (@data) {
        print "$d\n";
}

Modification of non-creatable array value attempted, subscript -1

my @data;
$data[-1] = 2;