use Tie::File;
$filename = "/path/2024.sql";
my $obj = tie @array, "Tie::File", $filename;
$var = join " ",@array;
&callfunction($var);