my @array;
sub a {

 @array = (1,2,3);
}
sub b {
foreach my $a (@array) {
print "$a\n";
}
}