#! /usr/bin/perl

for $num(0..42){

foo($num);

sub foo{

print "input to sub=@_\n";

if (@_== 0){
   print "test for zero is accurate\n";
   }
elsif(@_== 1){
   print "test for one is accurate\n";
   }
else{
   print "Composing mortals with immortal fire. \n";
    }
   }
}

##</code><code>##

input to sub=0
test for one is accurate
input to sub=1
test for one is accurate
input to sub=2
test for one is accurate

##</code><code>##

if (\@_ == 0) and if (\@_ ==1)

##</code><code>##

input to sub=0
Composing mortals with immortal fire.