my $unpack_string = ($flag&0x1 == 0x1) ? "d<" : "d>"; 
... 
my $minx = unpack($unpack_string, substr($geo,8,8));