#!/usr/bin/env perl

package test;

sub Init
{
    $[ = 1;
}

sub test
{
    print "(\$[= $[) array has " . scalar @_ . " elements, last index = $#_\n";
}

1;