use strict;
use warnings;
#use Data::Dumper; $Data::Dumper::Useqq = 1; $| = 1;
#print Dumper( \%some_var );