#!/usr/local/bin/perl

use warnings;
use diagnostics;
use strict;

my $x = "Just another scalar";
my $y = \$x;

print $x."\n";
print $y."\n";