The following code works for me. You are using sort function wrongly as Zaxo indicated. Also i think you are not sending the arrays as reference for subroutine parameters. You have to send the arrays as reference for subroutine parameters. For example,  comp_arr (\@anc, \@ind)

use strict;
use warnings;

my @anc=("BX1.01.001","BX1.01.002","BX1.01.003","BX1.01.004","BX1.01.0
+05","BX1.01.006");
my @ind=("BX1.01.002","BX1.01.002","BX1.01.003","BX1.01.004","BX1.01.0
+05","BX1.01.006"); 

comp_arr (\@anc, \@ind);

sub comp_arr
{
    my @arr1= sort (@{$_[0]});
    my @arr2= sort (@{$_[1]});


    if ($#arr1 != $#arr2)
    {
        print "Indicator and anchor count do not match";
        exit;
    }

    for my $x (0..$#arr2)
    {
        print "$arr1[$x]\t$arr2[$x]\n";      
        
        print ("Anchor/indicator mismatch in $arr1[$x]\n") if ($arr2[$
+x] ne $arr1[$x]);
        
    } 

}

output:
-------
BX1.01.001      BX1.01.002
Anchor/indicator mismatch in BX1.01.001
BX1.01.002      BX1.01.002
BX1.01.003      BX1.01.003
BX1.01.004      BX1.01.004
BX1.01.005      BX1.01.005
BX1.01.006      BX1.01.006

[download]

Prasad

In reply to Re: Comparing arrays with text contents by prasadbabu
in thread Comparing arrays with text contents by rsriram

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.