--- a/_test/temp.pl	Mon Aug 31 20:22:16 2015 +0300
+++ b/_test/temp.pl	Fri Sep 04 19:40:23 2015 +0300
@@ -1,37 +1,32 @@
 #!/usr/bin/perl
 use strict;
 
-use YAML::XS;
-$YAML::XS::DumpCode = 1;
+use Time::HiRes qw(gettimeofday tv_interval);
+use constant COUNT => 20000000;
+
+my $t;
+
+$t = [gettimeofday];
+
+for ( my $i = 0 ; $i < COUNT ; $i++ ) {
+    my $o = [];
+    $o->[0] = 10;
+    $o->[20] = 11;
+}
+
+print "Arrays: ", tv_interval( $t, [gettimeofday] ), "\n";
 
-my $conf = {
-	'@include' => [qw(security view)],
-	runtime => {
-		type => 'IMPL::Web::Application',
-		params => {
-			handlers => {depdendency => 'filters'}
-		} 
-	},
-	filters => [
-		{ type => 'IMPL::Web::CookieAuth' },
-		{ type => 'IMPL::Web::Security' },
-		{ type => 'IMPL::Web::LocaleHandler',
-			params => {
-				locales => [
-					'en-US',
-					'ru-RU'
-				],
-				default => 'en-US'
-			}
-		},
-		{ type => 'IMPL::Web::ContentNegotiation' },
-		{ type => 'IMPL::Web::RestController' }
-	],
-	custom => {
-		factory => sub { return "hi!" }
-	}
-};
+$t = [gettimeofday];
+
 
-print Dump($conf);
+for ( my $i = 0 ; $i < COUNT ; $i++ ) {
+    my $o = {};	
+    $o->{a} = 10;
+    $o->{b} = 11;
+}
 
-1;
\ No newline at end of file
+print "Hashes: ", tv_interval( $t, [gettimeofday] ), "\n";
+
+
+
+1;