Select Code to Download

#!/usr/bin/perl -w

use strict;

# (More program ...)

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