#!/usr/bin/perl -w
@array=(a..z);
splice @array,4,5,map(uc,@alpha[4..8]);
$,='';
print "@array\n";