use 5.010;

sub square_a_number
{
    my $value = shift;
    $Some::Global::Variable += $value;
    say "Squaring the value '$value'";
    return $value * $value;
}