print map "element $_\n", @$p;