my @generic; 
my @allGeneric; 
 
# read some lines from file, no specific mark up 
# store matching lines in @genreric 
FH = open "<", "Some file.txt"; 
 
while (<FH>) 
{ 
  if ($line =~ /some match/) 
  { 
    push (@generic, $line); 
  } 
} 
close FH; 
 
#add some trailing text 
#remove first element since it si always empty due to push 
 
push (@generic, "\nSee some place: \n"); 
splice (@generic, 0,1); 
push (@allGeneric,"*"x80 . "\n"); 
push (@allGeneric,@generic); 
 
print "The system folder is ...\n\n"; 
print "===== Generic actions =====\n"; 
print "@allGeneric\n";

print "@allGeneric\n";

print "$_\n" for @allGeneric;