
while (<>) {
  @n = split;
  if     ($n[0] == $n[1]) { 
    print "Numerically equal.\n" 
  }
  unless ($n[0] eq $n[1]) { 
    print "But not the same string.\n" 
  }
}





