@a = (1, 2, 3);print "Array \@a = @a\n";print "Element \@a[0] = $a[0]\n";print "Resetting array base...\n";$[ = 1;print "Element \@a[1] = $a[1]\n";