foreach $plate(keys %PLATES)
{
    $TEMPLATES{$plate} = "template_folder/$plate";
    if (open ($handle,"$TEMPLATES{$plate}) )<br>
    {
        $TEMPLATES{$plate} = <$handle>;<br>
        close ($handle);<br>
    }

}
print $TEMPLATE{'top'}
print $TEMPLATE{'left'}
print $TEMPLATE{'main'}
print $TEMPLATE{'bottom'}