my @markup = qw( XML HTML YAML EBML BeerXML );
foreach(@markup) {
    print "How to create $_ file using perl";
}