sub show_index {
  my $self = shift;
  our $index = shift;
  print $index;
}
print $main::index;