my $ecounter = 0;
my @e = ();
my @file_line_contents = split (/\|/,$_);
while ($ecounter < 45) { # Note brackets, not quotation marks!
    $e[$ecounter] = length($file_line_contents[$ecounter]);
    $ecounter++;
}