#!/bin/ksh
FILE=$1

COUNTER=1
perl ./program0 "${FILE}" "${FILE}.${COUNTER}"

while [ $COUNTER -lt "5" ] ; do
   perl ./program${COUNTER} ${FILE}.${COUNTER} ${FILE}.$(expr ${COUNTER} + 1)
   COUNTER=$(expr $COUNTER + 1)
done