#!/usr/bin/perl -w

for (my $i=0; $i<1000000; $i++)
{
  test($i)
}

sub test
{
  my $a=$_[0];

#  return;
  if ($a==1) {}
  elsif ($a==2) {}
  elsif ($a==3) {}
  elsif ($a==4) {}
  elsif ($a==5) {}
  elsif ($a==6) {}
  elsif ($a==7) {}
  elsif ($a==8) {}
  elsif ($a==9) {}
}