#!/bin/env perl -w
use strict;

foreach my $let (qw(a b c)) {
    print $let . ' ' . uc($let) . "\n";
}
