#!/usr/bin/perl -w
# Example 3.5 - splice

@alpha = (’a’ .. ’z’);
splice @alpha, 4, 5, map(uc, @alpha[4 .. 8]);
$, = ’ ’;
print @alpha;