When you activate warning with 'use warning' or '#!perl -w' it gives you this message. In order to identify put 'use strict;' in your program and it will tell that which variable is not initialized or used only once.
For more information see how to use strict.