#!/usr/bin/perl
use strict;
use warnings;
my $x = "What shall we do with the drunken sailor?\n";
my $y = "Early in the morning.\n\n";
print "$x" x 3;
print "$y";
my $z = "Heave ho, and up she rises\n";
print $z x 3;
print $y;
Result:
What shall we do with the drunken sailor.
What shall we do with the drunken sailor.
What shall we do with the drunken sailor.
Early in the morning.
Heave ho, and up she rises.
Heave ho, and up she rises.
Heave ho, and up she rises.
Early in the morning.
