perl ~/tmp.pl
1 maps to 2
3 maps to 4
5 maps to null