sub f {
    my $x = $_[0]; # copy created here
    print $x;
}