foreach my $guest (@guest) { # Should have been @guests