given($LineTemp[1])                        # check the list format
{
    when 0
    {
        for($i = 0; $i <= $#ListData; $i++)
        {
        print "a";
        }
    }
    default
    {
        die "Error: Improper value for list format.  Only 0-4 are valid.";
    }
}