print (@{$array[-1]})[-1];