#!/usr/bin/perl

use strict;
use warnings;

open ( my $WIIB, '<', "WhatIsInBin");
our @binstrings = <$WIIB>;
close ($WIIB);
my @cards;
for my $line (@binstrings) {
	push ( @cards, ( substr ($line, 0, 22) ) );
	push ( @cards, ( substr ($line, 22) ) );
}

print "Bash Flash!\n";
while (1) {
	for my $currentcard (@cards) {
		print "$currentcard \n";
		<STDIN>;
	}
}

exit; 

#