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++;
  }
}