# open the file and quit if we can't *
open(FH,'foo.txt') or die $!;

# store the contents into an array *
my @line = <FH>;

# close the file
close FH;

# for each element in the array, print it *
for my $line (@line) { # start for loop
   # print it
   print $line;
} # end of for loop

# exit
exit;

##</code><code>##

if (exists $self->{'pk'}) {
  $self->{'pk_index'} = delete $self->{'fields_hash'}->{$self->{'pk'}};
  splice(@{$self->{'fields_arry'}},$self->{'pk_index'},1) if defined $self->{'pk_index'};
}