my @cleanarray;
open(PH,"xcommand|") or die "Can't open xcommand: $!";
while (<PH>) {push @cleanarray, (split(' '))[0];}
close (PH);