Select Code to Download

sub x{ 
    my( @a, @b ) = @_; 
...
x( @x, @y );;
a:[1 2 3 4 5 6 7 8 9 10 a b c d e f]
b:[]

sub MI {
    my( $string_es, $string_en, $hash_es, $hash_en ) = @_;
...
    my $mi = $prob_es_en * log( $prob_es_en / ( $prob_es * $prob_en ) 
+);
    return $mi;
}

#create hash files from ngram statistics
my %hash_en;
...
    }
    close FILE;
}