open(CHANGED, "changed.txt") || die "Can't open change log\n";
my @changes = map { chomp; [ split('-', $_) ] } <CHANGED>;
close(CHANGED);