List::Util 

use List::Util qw(
    any all none notall
);

if( all { $_->{age} > 18 } @people ) {
    confirm_booking();
}
else {
    die "All members of the group must be over 18";
}