sub SubAliasIndex::new { my ($class, $ix) = @_; bless \$ix, $class; }
sub SubAliasIndex::ix { ${ $_[0] } }

sub sub_alias (\&;$) {
  my ($func, $ix) = (@_, 0);
  sub { $func->(SubAliasIndex->new($ix), @_) };
}

sub bar {
  my $ix = (@_ and UNIVERSAL::isa($_[0], 'SubAliasIndex')) ? shift->ix : 0;
  # ...
}

*foo = sub_alias &bar, 1;
*blat = sub_alias &bar, 2;
*gunk = sub_alias &bar, 3;