my @lastletters = split /,/, $elements[-1]; if(@lastletters > 1) { # more than one letter print "first row\n"; print "additional rows\n"; }