1#!/usr/bin/perl
2my $x = "One";
3my $dummy = 0;
4
5$x = "FirstVal";
6
7$dummy++;
8
9$x = "SecondVal";
10
11$dummy++;
12
13$x = "ThirdVal";
14
15$dummy++;
16
17$x = "FourthVal";
18
19$dummy++;
20