push @INC, [ \&my_sub, $x, $y, ... ];
        sub my_sub {
            my ($arrayref, $filename) = @_;
            # Retrieve $x, $y, ...
            my @parameters = @$arrayref[1..$#$arrayref];
            ...
        }