Привет всем! Пришлось писать такой код:

if( $types[$i] eq 'Integer' ) { 
    $row += ord for @buff;
} 
else { 
  ( $row = join '', @buff ) =~ s/\s+$//g;
}

потому что

$types[$i] eq 'Integer' 
    ?  $row += ord for @buff 
    : ($row = join '', @buff) =~ s/\s+$//g;

ругается на syntax error ... near «ord for ».

В чём дело? Точно не в ord($_) for (@buff), так тоже не пашет.