package foo;

sub print_array{
  print "@main::array";
}

1;