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