#!/usr/bin/perl
  use strict;

  parse(1,0);

  sub parse {
    while (defined(my $number = shift)) {
      print "Number: $number\n";
      &parse if $number;
    }
  }