$ perl
use strict;
use warnings;

my $i;   # uninitialized
my $j=5;

if ($i == $j) {
  print "equal";
}
__END__
Use of uninitialized value in numeric eq (==) at - line 7.