Double quotes interpolate variables including arrays.
"abc@xyz.com" replaces
@xyz by
join $", @xyz which is probably not what you want. Use single quotes or escape the at-sign.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]