while (<DATA>) {
    my @off = split;