D:\>surprise.pl
 ('NAME'=~/$last/i)=1