use strict;
my $foo = "Hello World!";
_Printer(0, 1, 2, 3, ($foo =~ m/zoom/), 5);

sub _Printer
{
  my $foo;
  my $i = 0;

  while (scalar(@_)) {
    $foo = shift;
    print "$i: $foo\n";
    $i++;
  }
}

##</code><code>##

0: 0
1: 1
2: 2
3: 3
4: 
5: 5

##</code><code>##

0: 0
1: 1
2: 2
3: 3
4: 5