#!/usr/bin/perl -w
use strict;
my @d = qw,I am stoned,;
{
   my @d = sort @d;
   printf "Q: %s?\n","@d";
}
printf "A: %s.\n","@d";
__END__
# The output is (as it should be)
Q:I am stoned?
A:I am stoned.