Select Code to Download

my $long_string = $sth->fetchrow_array();

% perl -e'@a=(2); my ($b) = @a; print "$b\n";'
2
% perl -e'@a=(2); my $b = @a; print "$b\n";'
1