#!/usr/bin/perl
use strict;
use warnings;

my $data_file="test.txt";

my @numbers=read_numbers($data_file);

sub read_numbers
{
  my $file=shift(@_) // return ();
  open(my $fh, '<', $file) or die "Error open $file ($!)\n";
  # Zeilenenden ignorieren
  local $/=undef;
  # daten lesen und an leerzeichen/zeilenumbüchen splitten
  my @data=split(/[\x0A\x0D\s]+/,<$fh>);
  close($fh);
  return @data;
}