#! /usr/bin/perl

use strict;
my $number = @ARGV;
#print
#for (my $i=0; $i<$number; $i++) {
#    $myArray[$i] = $ARGV[$i];
#}
for (my $j=0; $j<$number; $j++) {
    my @myArray = split(//,$ARGV[$j]);
    my $workLen = @myArray;
    for (my $i=0; $i<$workLen; $i++) {
        `./pushbroom.pl $myArray[$i]`;
    }
    `./pushbroom.pl space`;
}