use strict;
use warnings;
use Tie::File;

sub adresse_get_next {
  my @array;
  tie @array, "Tie::File", "/home/htdocs/files/adress.txt";
   return shift @array;
}