in reply to Export in perl
our @list = qw( ass Jack queen king ); [download]
You probably meant Ace instead of "ass" :-)