sub foo {
    my (undef, $x) = @_;
    print $_[0], $x;
}

my $big = 'a' x 99999999;

foo($big, 'bar');