use strict;
use warnings;
use noname1;

my $str = 'ASBSDEC 34 GADVVEEVEETTE 56 IOEOREAK GKJEOG EFEAF 1090 DAFFEE 376';
my $result;
my $biggest = 0;

1 while ($str =~ /(\w+)\s+(\d+)(?{if($2 > $biggest) {$result=[$1, $2]; $biggest=$2}})/gx);

print "$result->[0] $result->[1]";

##</code><code>##

EFEAF 1090