@pod = qw(HostCycle Instinet index);
$extension{index} = 'pod';
map { 
    $infile_extension = $extension{$_} ? $extension{$_} : '.pm';
    system "pod2html $_.$infile_extension > $_.html";
} @pod;