for $item ( 0..3 ){
  print "$item item",$item!=1&&"s","\n";
}