my $entry_no_new   = pop @_;
my @array_of_lines = @_;