problemmer med arrays

Jeg har et script som skal parse en simpel fil, sortere daterne i et array og derefter køre en løkke som parser dataerne.

Desværre er jeg ny i perl og har problemer med at gemme dataerne korrekt i et array:
#!/usr/bin/perl

open(FIL, "<1.txt");
while (defined($line=<FIL>))
{
        $line =~ s/\n//;
        @lines = ();
        @lines = split(/ /, $line);
        $lines[1] =~ s/\"//;
        $lines[1] =~ s/www.//;
        ($byte, $site) = @lines;
        @data[$site] =+ $byte;
}
close(FIL);

foreach $site (@data)
{
        print "Site: $site - $byte[$site]\n";
}