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