#!/usr/bin/perl -w

use strict;

# (More program ...)

##</code><code>##

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

##</code><code>##

$changes{$file} = \@changes;