my @x;
$x[0] = 1; $x[1] = 2; $x[2] = 3;