sub compare{
  $param=shift;
  print "String" if($param eq "5");
}