#!/usr/bin/perl -w use strict; my $mone; my $mtwo; ($mone, $mtwo) = (1, 3); print (("A ", "B ", "C ", "D ")[$mone, $mtwo]); print "\n";