#!/usr/bin/perl

    use strict;
    use warnings;

    my $n = shift;
    my $m = int (($n + 7) / 8);

    goto L . ($n & 7);

    L0: do { print "zero\n";
    L1:      print "one\n";
    L2:      print "two\n";
    L3:      print "three\n";
    L4:      print "four\n";
    L5:      print "five\n";
    L6:      print "six\n";
    L7:      print "seven\n"; } while -- $m > 0;