#!/usr/bin/env perl6

sub num( $x, $y, ?$z ) {
    $x.say;
    $y.say;
    $z.say if $z;
}

num( 5, 7, 9 );