how about :

use strict;

my @name = ("tim", "tom", "jon");
my @time = ("5:00", "6:00", "7:00") ;
my @duty = ("floors", "urinals", "windows");

for my $i (0..$#name) {
    print "$name[$i] is on $duty[$i] duty at $time[$i]\n"
}
[download]