use strict ; use warnings; sub insert_Nickname {print "insert $_[0]\n"; return 1} insert_Nickname('Jack'); insert_Nickname('Jill'); insert_Nickname('SAINT'); insert_Nickname('Saint');