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