@jea=([1,"one"],[2,"two"],[3,"three"],);
huu(\@jea);

sub huu {
    my $i;

    for $i (0 .. $#{$_[0]}) {
        if ($_[0][$i]) {
            use vars (@bla);
            local *bla=$_[0][$i];
    
            print "$i: @bla\n";
        }
        print "@bla\n";
    }
}