If the $nick isn't being initialized, you could just get around this by doing a conditional assignment. my $who = $_[0] || 'narf';

This would result in a non-initialized value to return false. This might not be the ideal solution, however...