#!/usr/bin/perl

while (<>) {
        ($mailbox, $key) = split(/:/, $_);
        chomp $key;
        $key{$mailbox} = $key;
        push @mailboxes, $mailbox;	
}

foreach $mbox1 (@mailboxes) {
        foreach $mbox2 (@mailboxes) {
                print "folder-hook $mbox1 'macro pager $key{$mbox2} \"|ifile.relearn.message $mbox1 $mbox2\\ns=$mbox2\\n\\n\\t\" \"Relearn a\ $mbox2 \"'\n";
        }
print "mailboxes ~/mail/$mbox1 \n"
}