You speak of idiomatic, yet you go

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

What's wrong with good old

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

?