przekazanie zmiennej do pętli

[tk000]

czesc wszystkim mam taki skrypt:

my $counter = 0;
open IN, "/home/reboots_kpi/inputs/$data-TAC-PL-reboot_newtv.csv";
open OUT, ">/home/reboots_kpi/reboots/mac_reboot.csv";

while(<IN>)
{
$counter++;
next if $counter < 0;
my @linia = split(/;/,$_);
print OUT "$linia[0]\n";

}
close IN;
close OUT;

open FILE, "/home/komortom/reboots_kpi/reboots/mac_reboot.csv";
open FILEOUT, ">/home/komortom/reboots_kpi/reboots/result_reboot.csv";
my %count;
while (my $line = <FILE>) {
foreach my $word($line) {
$count{$word}++;
}
}
for my $word (sort keys %count) {
print FILEOUT "$count{$word};$word\n";
}
close FILE;
close FILEOUT;

pierwsza czesc skryptu wybiera z pliku IN pierwsza kolumne a druga czesc skryptu zlicza powtorzenia tzn ile raz powtorzyl sie MAC_adres.
I teraz jak przerobic skrypt zeby nie wczytywac pliku FILE (gdzie sa MAC_adressy) tylko przekazac bezposrednio wynik z OUT, tzn nie zapisywac MAC_adressów do pliku tylko przekazac dalej do czesci co zlicza powtorzenia jako zmienną
probuje petla for ale mi cos nie idzie

[TQM]

Calosc mozna znacznie uproscic:

# to pomoze wylapac bledy i wymaga nieco wiekszej dyscypliny od programisty
use strict;
use warnings;

#tu trzymamy odnalezione adresy MAC
my %mac;

open IN, "/home/reboots_kpi/inputs/$data-TAC-PL-reboot_newtv.csv";
while(<IN>) {
  my @linia = split(';',$_);
  # tworzy hash, klucz to adres MAC, wartosc to ilosc wystapien w pliku
  $mac{$linia[0]}++;
}
close IN;

open FILEOUT, ">/home/komortom/reboots_kpi/reboots/result_reboot.csv";
for my $word (sort keys %mac) {
  # CSV ma najpierw ilosc wystapien a pozniej MAC
  print FILEOUT "$mac{$word};$word\n";
}
close FILEOUT;

Jak wastawiasz kod na forum to uzywaj markera CODE a nie pogrubienia bo to rozwala identacje i ciezko sie czyta.