#! /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";
    }
   }
}