my @tile2=map{
	my $sprite = SDLx::Sprite->new(
		image   => 'img/tile/tile2.png',   # or surface => SDL::Surface
		x=>int rand(500)-20,
		y=>400
	);
} 1 .. 50;

# .... etc .....
for(@tile2){
	$_->draw_xy($app,$_->x,$_->y);
}