#!/bin/perl

{
  my @a = ([1, 2, 3, 4], [5, 6, 7, 8]);
  $a[2] = [9, 10];

  print $a[2][1] . "\n";
}

10