use strict;
#use Data::Dumper;

my @liste;

sub lade_liste {
  my $pfad=shift;
  my $liste_ar=shift;
  if(open (my $fh, '<', $pfad)) {
    @$liste_ar= ('dummy' );  # damit Speicher allokiert wird!
    @$liste_ar=<$fh>;
    close($fh);
  } 
  return (@$liste_ar);
}

lade_liste('Test.txt' => \@liste);


{no warnings;                # "defined is deprecated" ausschalten
    if(defined(@liste)) {
	if( @liste ) {       #  if (scalar @liste) ist redundant
	    print @liste;
	}
	else { warn "Datei war leer, kann nicht weiter machen!" }
    }
    else { warn "Datei konnte nicht geladen werden ($!)" }
}