while ( $tmpline = <FROM> ) {
    chomp $tmpline;
    @data_from = split ';;', $tmpline;
    @from{@fields_from} = @data_from;
    while (($key, $value) = each %from) {
        print "$key => $value\n";
    }
}