Glad I could help. A couple comments though, you probably want to initilize @schedule with an empty list.

@schedule = ();

The other is you usually don't want to assign to @_, depending on the context it might cause subtle bugs. @_ has some magic associated with it. For instance, in a sub, @_ acts as aliases to the passed arguments. (Example below)

It appears assigning to @_ makes it lose it's magic so I don't think it is a problem here but it's probably a dubious habit to form.

#!/usr/bin/perl -w

use strict;

my ($foo,$bar,$baz) = (1,2,3);

print "$foo, $bar, $baz \n"; # Prints 1, 2, 3

foo($foo,$bar,$baz);

print "$foo, $bar, $baz \n"; # Prints 5, 10 , 15


sub foo {
    foreach (@_) {
        $_ *= 5;
    }
}
[download]

-Lee

"To be civilized is to deny one's nature."