#!/usr/bin/perl
# line 2 array.pl 
@ary = $ARGV[0] eq '-n'? (10..15) : (a..f);
print "@ary\n";