Type check failed for assignment
  in '&infix:<=>' at line 1
  in 'routine' at line 1
  in main program body at line 14:./perl.pl