@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";