A First Solution 

my @data = (
  'BT RH YH GT',
  'GT RH BH YT',
  'GH BH RT YT',
  'BT GH RH YT',
  'RH YH RT BT',
  'RT BT GH YH',
  'GT BT RH YH',
  'GT YT GH BH',
  'RH GH BT YT',
);

my @deck;
push @deck, Card->new(split ' ') foreach (@data);

my $board = Board->new();

$board->try(0, @deck);