my $val = <RECORD>; chomp $val; $val++;