Because Perl is seeing the '*' as regex quantifiers. Use \Q to prevent that.

if($who =~ /\Q$i/) { print qq(one $i); } else { print qq($i); }
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg