$ perl cfb.pl
a => 1
b => 2
c => 3
d => 4

$ perl cfb.pl file
a => 5
b => 6
c => 7
d => 8