$hRec{$CmpKey.";".$CmpKey2}=$CmpValue;

##</code><code>##

my ($recnos, $vINVOICE_TXT) = split (';', $key) ;
....
....
....
my $Rec=`egrep ^$recnos"\t"\$recnos.*$vInv $ARGV[0]` ;