my $one  = 1;
my $six  =
my $nine = 9;

print $six; # prints 9


##</code><code>##


#!/usr/bin/perl -l

use strict;
use warnings;
use diagnostics;

print my $J = my $A = my $P = my $H =
'Just',' Another ','Perl',' Hacker';