my @links = (); push @links, $firstlink if $. != 1; # push @links, pagelink($page) foreach my $page (@pages); push @links, $lastlink if $. != $total_number_of_lines; print join("|",@links);