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

my ($foo, $berries) = (89,90);
foo();

{
my $foo = 89;

sub foo {
    print "$foo, $berries\n";
  };
};