#!/usr/bin/perl -w
use strict;
my @array = qw( b d c a e g f );
print shift @{[ sort @array ]};