my @test = qw(in inf info information INF INFO Na Nan Nanny NAN NANNY nan04);
foreach my $x (@test) {
  my $y = int($x);
  printf "%11s -> %s\n", $x, $y;
}