#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);;

my $foo = 'Bar':
my $foo = $foo x 2;

say $foo;

__END__


##</code><code>##

KARL : {
    my $foo = $foo x 2;
    say $foo;
}