Select Code to Download

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

@array = qw(foo bar);
$length = scalar @array;