Clone faces in Modo

I just started learning Modo a few days ago and am having problems when trying to clone selected faces. The problem is that the clone tool does not select the newly created faces and instead stays on the same selection it had before the clone command was used. I tried to write a script to select the new faces but it gives errors

#!perl
#Detatches selected components and selects them

my $currentlayer = lxq("query layerservice layers ? main");
my @selectedFaces = lxq("query layerservice polys ? selected");
lx("select.all");
my @allFaces = lxq("query layerservice polys ? selected");

lx("select.drop polygon");
lx("select.copy");
lx("select.paste");
lx("select.polygon @allFaces");

#lx("select.element $currentlayer polygon add @allFaces");

lx("select.invert");