Untitled

#!/usr/bin/perl
#$hola se supone que es la pagina q abrimos.
my $hola = "hola";
$filename = "langs/es";
open( FILE, "< $filename" ) or die "Can't open $filename : $!";

foreach $palabra ($hola) {
        foreach $comparamos ( <FILE> ) {

if ($comparamos eq $palabra)    {

$posibility++;
print "$palabra es igual a $comparamos. Sumando una posibilidad.\n";
                }
        }


}
close FILE;