diff myprog myprog.new 276a266 > my $xx = $db[$vars{_recNo}]{'name'};