@original= (0 .. 5);
@true = grep $_*=2, @original;
local $" = ", ";  # for nicely formatted output
print "original: @original\n";
print "output: @true\n";