Select Code to Download

while (my $hours_left = shift @office) { 
  @office; 
  $self->{cafeine}++; 
  $self->{nicotine} += $hours_left; 
};

while (my $hours_left = shift @oval_office;) { 
  $self->{skill} = $hours_left; 
  $self->{satisfaction} += kill 9 @terrorists; 
};