#!/usr/bin/perl
use strict;
my @name = ("tim", "tom", "jon");
my @time = ("5:00", "6:00", "7:00") ;
my @duty = ("floors", "urinals", "windows");

for (my $x = 0; $x < scalar(@name); $x++) {
    print @name[$x] . " is on " . @duty[$x] . " duty at " . @time[$x] . "\n";
}