DB<134> sub multi (\@) {  print "@{$_[0]}" }

  DB<135> $multi=\&multi
 => sub { "???" }

  DB<136> @array=1..5
 => (1, 2, 3, 4, 5)

  DB<137> multi @array
1 2 3 4 5

  DB<141> (\@array)->$multi()
1 2 3 4 5

  DB<138> $h[0][1][2]=\@array 
 => [1, 2, 3, 4, 5]

  DB<139> $h[0][1][2]->$multi()
1 2 3 4 5