#!/bin/perl
#
#Powered by leoberbert
#
#Abre o arquivo

open(IN,"<datas");

while (<IN>) {

    #tira o enter da linha

    chomp;

    #divide a linha em elementos do array

    @linha=split(/ /);

    $coluna1=($linha[0]);

    $coluna2=($linha[1]);

     if ( $coluna1 > $coluna2 ) {

      print "$coluna1 \n";


     }  else {

        print "$coluna2 \n";

     }

}
close IN;