#!/usr/local/bin/perl -w
open (DATEI, "<array.log") or die $!;
   @vector = <DATEI>;
close (DATEI);
chomp(@vector);	#<--Zeilenumbruchzeichen enfernen für das ganze Array
$b1=$vector[0];	#<--Array in einzelne Variable umwandeln
$b2=$vector[1];
$b3=$vector[2];
$b4=$vector[3];

## Script arbeitet mit den Variablen

open (DATEI, ">array.log") or die $!;
   print DATEI "$a1\n","$a2\n","$a3\n","$a4\n";	#<-- Variablen Zeilenweise speichern
close (DATEI);