See here: "$#{@{WA{$key}{stags}}} = $rnds-1;".

I think Perl is complaining about the "$" missing before "WA", but I think that expression really should read "$#{$WA{$key}{stags}} = $rnds-1;". A similar problem appears in your unshift line. See References quick reference.