my ($ref ) = \[]->[0];