foreach $great (@man) {
  lies(2,'women');
}
# ;)