use strict;
use warnings;

foo();
my ($foo, $berries) = (1,2);
foo();

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