$lengthandn=$line[4].',',$line[5]; 
#                       ^ should be .