use 5.010;
use strict;

my $gender = 'unknown';
while (<DATA>)
{
  chomp;

  given ($_) {
    when ("Alice")  { $gender = 'female' }
    when ("Annie")  { $gender = 'female' }
    when ("Andy")   { $gender = 'male' }
    when ("Arnold") { $gender = 'male' }
  }

  say "$_ is $gender.";
}
__DATA__
Alice
Andy
Arnold
Jennifer
Annie
Henry

##</code><code>##

use 5.010;
use strict;

while (<DATA>)
{
  chomp;

  my $gender = 'unknown';
  given ($_) {
    when ("Alice")  { $gender = 'female' }
    when ("Annie")  { $gender = 'female' }
    when ("Andy")   { $gender = 'male' }
    when ("Arnold") { $gender = 'male' }
  }

  say "$_ is $gender.";
}
__DATA__
Alice
Andy
Arnold
Jennifer
Annie
Henry