parse

[Aben Siatris]

da sa toto napisat aj krajsie?

my $text=<<"HEADER";
646;sadfpwoef
9994;weopsdfj
334;qwepowr
HEADER

my %hash;
foreach my $lin(split('\n',$text))
{
 my @arr=split(';',$line,2);
 $hash{$arr[0]}=$arr[1];
}