Sub a { my @array = (1, 2, 3); } Sub b { foreach $value (@array) }