Добрый день,
пытаюсь создать массив данных в цикле,

но он выдает ошибку, что я не так делаю

можно и так передать

#!/usr/bin/perl
$dx1=500;

use Tie::File;

tie @In, 'Tie::File', "vector.dat" or die("Error opening file for reading"); # открываем файл данных
tie @In2,'Tie::File', "vector3.dat"or die("Error opening file for reading"); # открываем файл данных
tie @f1, 'Tie::File', "beam.anf" or die("Error opening file for reading"); # открываем файл модели
tie @f2, 'Tie::File', "beam3.anf" or die("Error opening file for reading"); # открываем файл

$in_l =(@In - 1); # определяем число строк в файле данных
$Out = @f1; # определяем число строк в файле модели
$qqq = arrea();
foreach $p (0..$Out) {
if ($f1[$p] =~ /\bLCURV\b/ig) { $aa = $p; }
else {next;}
$qqq[$p] = $aa ;
;}
$pi = $qqq[1];


print $aa, "\n";
print @qqq, "\n";