#!/usr/bin/perl
use strict;
use warnings;

my $foo;
print $foo * 3;