sub foo($) { $_[0]->[1] . "." . $_[0]->[3]; }