When checked with perl -cw, your first snippet yields:

syntax error at foo line 6, near "];"

The sprintf call is missing a closing parenthesis.