sub foo(Bar $bar) { print $bar->[3]; }