#!/usr/bin/perl -wT
use strict;

my @a             = 'a'..'f';
@a[reverse 5..10] = 'A'..'F';  # can you rewrite this line?

print "@a\n";

__END__

a b c d e F E D C B A