my $i = 10;
&print_i;

sub print_i{
    print "$i\n";
}