$array = [ qw(foo bar) ]; # huh: a reference? $length = scalar @$sarray # huh: @$?