$ perl timehash1.pl 
$VAR1 = {
          '1000' => 3,
          '1010' => 3
        };