#!/usr/bin/perl

use Tie::Ispell;

tie %en, 'Tie::Ispell', "english";
tie %pt, 'Tie::Ispell', "portuguese";

while(<>){
  chomp;
  print "$_ is en\n" if $en{$_};
  print "$_ is pt\n" if $pt{$_};
}