open(IN,'files.dat');
my $files=join(' ',<IN>);
close(IN);
foreach (split(/\s+/s,$files)) {
    my $key=$_;
    $key=~s/\_pt//;
    print "'$key' => 'pt/$_',\n";
}
