my @testqueue = (10.10.10.10);
&pause;
sub pause {
        my $pback = "/usr/sbin/cmd";
        my $set = "pause queue";
        while (@testqueue){
                my $out = `$pback $set */$testqueue[0]`;
                print "$out";
                shift @testqueue;
                }
}