while (<DATA>) {
    chomp;
    my @F = split '&';