use strict; use warnings; use utf8; my $input = ; chomp($input); my @arr = split(/ /, $input); my $a = $arr[0]; my $b = $arr[1]; if ($a/$b == 3/4) { print "YOKO\n"; }else{ print "TATE\n"; }