I know what I mean. Why don't you?

<update>

This reeks after homework. What do you have to do to get that output from the two arrays? Can you formulate that task in words? can you write down that description in your post? can you try to do that yourself, present the code you have so far and tell us where you're stuck?

Then do it.

If you can't, then solving the problem for you won't help you in any way, because it would seem you're not fit for programming.

</update>

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

monks I have a array Array1=(ME K LE K HT ME LL) Array2=(10 4 1 5 6 7 19)

Not Perl!

@Array1=qw(ME K LE K HT ME LL);
@Array2=(10, 4, 1, 5, 6, 7, 19);
[download]

i have to display the output like ME=17

print "ME=17\n";
[download]

use Data::Dumper;

my @a1 = qw(ME K LE K HT ME LL);
my @a2 = qw(10 4 1 5 6 7 19);
my %h;
$h{ $a1[$_] } += $a2[$_] for ( 0 .. $#a1 );

print Dumper( \%h );
__OUTPUT__
$VAR1 = {
          'HT' => 6,
          'ME' => 17,
          'LE' => 1,
          'K' => 9,
          'LL' => 19
        };
[download]

Cheers,
R.

my @a1 = qw(ME K LE K HT ME LL);
my @a2 = qw(10 4 1 5 6 7 19);
my %h;
$h{ $a1[$_] } += $a2[$_] for ( 0 .. $#a1 );

for (@a1) {
    next if (!exists($h{$_}));
    print $_ ."=". delete($h{$_});
}
__END__
ME=17
K=9
LE=1
HT=6
LL=19
[download]

array1 = %w( ME K LE K HT ME LL )
array2 = [ 10, 4, 1, 5, 6, 7, 19 ]
sums = Hash.new( 0 )
array1.zip( array2 ).each { |(k,v)| sums[k] += v }
array1.each { |k| puts "#{k}=#{sums[k]}" }
[download]

Update: The Ruby's because of the homework stench. This translates all but verbatim into Perl (presuming you know that pairwise { [ $a, $b ] } @Array1, @Array2; is the List::MoreUtils equivalent of Ruby's Array#zip). Just add sigils and shake!