my @array = ("bob","jones","dick");
foreach my $guys (@array) {
        print $guys;
        my @output= $t->cmd("sh clock");
        print @output;
}

##</code><code>##

[me@mybox me]$ ./script
bobjones11:15:49.478 GMT Tue Sep 30 2003
dick11:15:49.482 GMT Tue Sep 30 2003