Select Code to Download

         print "$id=$data{$file}{$id} ";

         print "$role=$data{$file}{$role} ";

use strict;
my %data;
...
    }
    print "\n";
}

xxx     yyyy   Fred    4
zzzz    wwww   James   4

use strict;
my %data;
...
    }
    print "\n";
}