# print row of dashes    
print '-' x 80;

#tab over
print "\t" x ($tab/8), ' ' x ($tab%8);      

# a list of 80 1's
@ones = (1) x 80;           

# set all elements to 5
@ones = (5) x @ones;