$crows is a reference to an array, so you have to dereference it to get at the array elements:

print $code->[0];
[download]

See perlref and perlreftut for more information on references in Perl