#!/usr/bin/perl
use strict;
#use warnings;

for my $i (1 .. 20) {
    isodd($i);
    print "$i\n";
}

sub isodd {
    my $i = shift;
    next if int($i/2)*2 == $i;
    return;
}