use Data::Dumper qw/Dumper/;
sub show_index {
    print Dumper \@_;
}