1#!/usr/bin/perl
2my $x = "One";
3
4$x = "Two";
5
6my $y = "Lambda";
7
8$x = "Four";
9