$ perl scope.pl
2
1
1
2
3
4
5
14