perl -MScalar::Util=isdual -E "@v = (0, 1, 2, '3', '4', '5'); push @v, @v; push @v, $v[0].$v[3]; push @v, $v[1]+$v[4]; isdual($_) and say for @v"
0
4