foreach $T (@myfile)
{
    %map = {'first', X, 'second', Y, 'third', Z);
}