Select classes end_file &printClass(); sub printClass{ foreach my $element(@class){ if ($element ne ""){ print ""; print "$element\n"; } #end if element } #end foreach } #end printClass