That's a Bad Programmer (I) 

• functions that do two things

sub get_something_from_somewhere_and_mash_it_somewhere_else {
   ...
}

• incorrect validation of input vars

sub squared {
   my $number = shift || die "but even when zero is passed in";
   return $number * $number;
}