#!/usr/bin/perl
use strict;
use warnings;

my$file=shift(@ARGV);
my%aa=$_;

open(FILE,'<',$file);
while(<FILE>)
{
    if($_=~/^# id:/ || $_=~/^# name:/)
    {
        print $_;
        my$entry=<FILE>;
        print $entry;
        print %aa;
    }
}
close FILE;