use strict;
use warnings;

$SIG{__DIE__} = sub {
  my $wn = shift;
  return if $wn =~ /Use of uninitialized value/i;    #Most annoying
  return if $wn =~ /name "(?:.+?)" used only once/i; #Very annoying
  warn $wn;
};

print 123 + undef, "\n";  # We want to hide this warning.
print 123 + 'abc', "\n";  # We want to see  this warning.