--- a/_test/temp.pl	Tue Feb 18 18:17:20 2014 +0400
+++ b/_test/temp.pl	Thu Feb 20 01:33:03 2014 +0400
@@ -1,5 +1,31 @@
 #!/usr/bin/perl
 use strict;
-use Scalar::Util qw(looks_like_number);
-print looks_like_number(0);
+
+use Time::HiRes qw(gettimeofday tv_interval);
+
+my $hash = {
+	x => 2.0,
+	y => 2.0,
+	z => 2.3,
+	w => 1.0
+};
+
+my $t = [gettimeofday];
 
+for(my $i = 0; $i < 1000000; $i ++) {
+	$hash->{x} = $i;
+}
+
+
+print "HASH: ",tv_interval($t,[gettimeofday]),"\n";
+
+
+my $array = [2,2,2.3,1.0];
+
+$t = [gettimeofday];
+
+for(my $i = 0; $i < 1000000; $i ++) {
+	$array->[1] = $i;
+}
+
+print "ARRAY: ",tv_interval($t,[gettimeofday]),"\n";
\ No newline at end of file