@EXPORT = qw(&shuffle @card_deck);
@EXPORT_OK = qw(&collect @list);
our @card_deck = qw(this is for testing);    
               
our @list = qw( ass Jack queen king );
sub shuffle { return "shuffle is done\n" }
sub distribute{ return "distribute is OK\n" }
sub collect{ return "Collection is finished\n" }
1;