Help for this page
#!/usr/bin/perl -w + ... } + print "Location 3, x = $x\n";
Location 1, x = 15 Location 2, x = 22 Location 3, x = 15