Thanks for your reply

After consulting all the replies, I have moved into array in hashes

Please find my code below, but still i'm struggling lot since it is taking long time to finish this task.

#!/usr/bin/perl
use Data::Dumper;
my $queryCount=0;
my $answeredCount=0;
my @connectionValues;
open(INP, $ARGV[0]);
while(my $inputtext=<INP>)
{
    chomp($inputtext);
    my ( $cmd, $fnum, $snum ) = split ' ', $inputtext;
    if ($cmd eq 'q')
    {
        for( my $arrVal=0; $arrVal < @connectionValues; $arrVal++)
        {
            if (exists $connectionValues[$arrVal]{$fnum} and exists $c
+onnectionValues[$arrVal]{$snum})
            {
                $answeredCount++;
            }
        }
        $queryCount++;
    }
    elsif ($cmd eq 'c')
    {
        if ($fnum ~~ @connectionValues or $snum ~~ @connectionValues)
        {
            my $fHashVal; my $sHashVal; my $valid=0;
            for( my $arrVal=0; $arrVal < @connectionValues; $arrVal++)
            {
                next if (!$connectionValues[$arrVal]);
                if (exists $connectionValues[$arrVal]{$fnum} and not e
+xists $connectionValues[$arrVal]{$snum})
                {
                    if ($valid)
                    {
                        $connectionValues[$arrVal]={%{$connectionValue
+s[$arrVal]}, %{$connectionValues[$sHashVal]}};
                        delete $connectionValues[$sHashVal];
                        $sHashVal=0;
                    }
                    else
                    {
                        $connectionValues[$arrVal]{$snum}=1;
                        $fHashVal=$arrVal;
                        $valid=1;
                    }
                }
                elsif (exists $connectionValues[$arrVal]{$snum} and no
+t exists $connectionValues[$arrVal]{$fnum})
                {
                    if ($valid)
                    {
                        $connectionValues[$arrVal]={%{$connectionValue
+s[$arrVal]}, %{$connectionValues[$fHashVal]}};
                        delete $connectionValues[$fHashVal];
                        $fHashVal=0;
                    }
                    else
                    {
                        $connectionValues[$arrVal]{$fnum}=1;
                        $sHashVal=$arrVal;
                        $valid=1;
                    }
                }
            }
        }
        else
        {
            push(@connectionValues, {$fnum=>1, $snum=>1});
        }
    }
}
close (INP);
print "$answeredCount,".($queryCount-$answeredCount)."\n";
[download]