sub fun(\$$;$)
        {
        print "\n";
        print shift;
        print shift;
        print shift;
        }

##</code><code>##

$a=5; $b=6;
fun($a,$b,3);