my @array = (1);
    $array[-2] = 2;