nlafferty,

Ohh just to show off ...

#!/usr/local/bin/perl -w

use strict;
use Data::Dumper;

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

my %sked = map { $_,{ time => $time[$x], duty => $duty[$x++] } } @name
+;

print Dumper( \%sked );
[download]

-derby