my @demo = ("one", "two", "three", "four"); print $demo[-1];