#!/usr/bin/perl
use strict;
$| = 1;
my @map =([1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,1],
[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]);

my @char = (8,4);
my %chir = {'xposition' => $char[0], 'ypostion' => $char[1]};
my $game = 1; #set to 0 for false

while($game){
for (my $i=0;$i<@map;$i++){
	for (my $p=0;$p<@{$map[$i]};$p++){
		if(($i==8)&&($p==4)){
		print("@");	
		}
		elsif($map[$i]->[$p]==0){
		print(" ");
		}
		elsif($map[$i]->[$p]==1){
		print("*");
		}
		print(" ");
	}
	print("\n");
}
for (my $i=0;$i<@map;$i++){
	for (my $p=0;$p<@{$map[$i]};$p++){
		print "\b" x 1;
	}
	print "\b" x 1;
}
}